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PREFACE 



ATARI FORTH PROGRAMMING 
Learning by using 



FORTH is a new, exciting programming 
language. It is easy to learn and programs, 
written in FORTH are very short, compared 
to other high level languages. 

The aim of this book is to show the novice 
and the experienced programmer how to use 
this language on the ATARI. The examples 
are short and use sound and grafics for 
demonstration. Use these examples to learn 
FORTH. 

Two applications, a mailing list and a 
serial interface for a printer, are 
included. These two applications show the 
wide variety FORTH can be used for. 

With FORTH an application can be written 
and debugged faster than in any other 
programming language. 

I hope this book will add new friends to 
the community of FORTH programmers. 

Thank's to Rick Schwarz, who helped me in 
proofreading. 

E.Floegel 
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What is FORTH? 



1. WHAT IS FORTH ? 

FORTH is like BASIC, FORTRAN or PASCAL a 
programming language. It is, however quite 
different from these languages. It was 
invented by CHARLES MOORE about ten years 
ago and its first use was to control 
telescopes on the Kitt Peak observatory. 

Today FORTH is widely used in control 
applications. One example is the control 
of movie cameras in the movie BATTLESHIP 
GALACTICA. Using the concept of virtual 
memory, FORTH also is used for data base 
managment . 

FORTH can not be compared with other 
programming languages. While you are 
learning to program in FORTH it would be 
better to forget all you have learned 
about other languages. 

What makes FORTH so unique ? 

One of the basic elements of FORTH is the 
stack. Everybody knows what a stack is. 
Nearly every desk has a stack of paper. 
Something is laid upon this stack and may 
be removed later. In terms of a computer 
this is a LIFO (Last In, First Out ) memory. 
The last thing put onto the stack is 
removed first. 



FORTH uses the stack in two different ways. 
First there is a parameter stack for data 
and calculating. Second, there is a stack 
for words, called the dictionary or 
vocabulary. In FORTH, words are the 
elements for programming. Several of 
these words can be combined to form a new 
word, performing a certain task. A basic 

dictionary of predefined words is 
contained within FORTH. These words are 
used by the programmer to create new words. 
This new words are placed on top of the 
dictionary. Running a program in FORTH 
means calling a sequence of words. 

For example, you have written a FORTH 
program to control stepper motors. START 
may be a word for starting the stepper 
motor. FASTER, SLOWER, may be words for 
changing the speed while STOP could be the 
word for stoping it. 

Defining your own words makes FORTH very 
flexible. Words can be rearanged to 
perform new tasks. All this makes FORTH a 
dynamic language. On the other hand, all 
this freedom makes the programmer 
responsible for the correctness of a 
program. There are only a few error 
messages and warnings. 

Though FORTH is used sometimes with other 
operating systems, it could be seen as its 
own operating sytem. It is an interpreter, 
calling and executing one word. It is also 
a compiler, with its capability to compile 
new words in the dictinary. It uses a text 
editor, and often an assembler. 

In this booklet we will learn FORTH by 
using this language on an ATARI 400/800. 
We will use graphics, sound and joysticks. 



All programs however, which don't use 
specific hardware on the ATARI can be 
easily adapted to other computers. 
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Basic elements of FORTH 



2. BASIC ELEMENTS OF FORTH. 

Let us first make some remarks concerning 
the basic elements of FORTH. 



2-1 THE STACK. 

As mentioned above, the stack is a LIFO 
memory. In Fig 2-1 a stack is represented 
in two ways. Fig 2-la shows the normal 
representation of a stack. In this book we 
will use the stack as it is shown in Fig 2- 
lb. ( 

■ TOS 



Fig. 2-1a 



TOS 
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Fig. 2-1 b 



Fig 2-1 Two representations of the stack 
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The top of stack ( TOS ) is always the 

rightmost element. One memory cell of the 

stack is a 16 bit cell. 

For documentation and understanding of 
FORTH words, it is necessary to show how 

the stack is affected by using a word. We 

will use the following abbreviations: 

a 16-bit address 

n signed 16 bit number 

u unsigned 16 bit number 

d signed 32 bit number 

b 8 bit byte 

c 7 bit ASCII character 

f boolean number, flag 

These abbreviations are used in the 
following manner: 

WORD ( STACK BEFOR - STACK AFTER ) 
Examples: 

LOOK ( an) 

The word LOOK, whatever it does, requests 
an address and a number on top of stack 
before executing. Both items are removed 
from stack after execution. 

FOUND ( -f) 

FOUND doesn't need any parameter before 
execution and leaves a boolean number f on 
the stack after execution. 

COMP ( aa'c - nf) 

The word COMP needs two addresses and a 
character on top of the stack. After 
execution a number and a boolean flag is 
left on stack. In this representation, the 
top of stack is always the rightmost 



character. To differ between several 
addresses or numbers, there can be added a 
hyphen or a number to the character like a 
a 1 or n nl n2 . 



2-2 WORDS IN FORTH. 

A word in FORTH may be any arbitrary 
string of characters, excluding three 
special characters. The excluded 
characters are: the space, backspace, and 
the return character. The space character 
is the only delimiter between FORTH words. 

The backspace character is used for 
correcting typing errors, while the return 
character is used to indicate that the 
input to the computer is finished. 

Examples of words: 

FIRST 1TIMES .NAME @VALUE 

THR EE is not recogniced as one word, 
because there is a space in it. It would 
represent two words THR and EE. 

Some words in the predefined dictionary 
consist of only one character. The dot . , 
is for example, the printing statement. 
The @ sign fetches the content of a 16 bit 
memory cell. These letters can be used to 
indicate a special function of a word. In 
the example above .NAME will print a name 
while @VALUE will get some value from 
memory. This naming convention makes it 
easier to read FORTH programs. 

2-3 THE REVERSE POLISH NOTATION. 

For calculations, FORTH uses the reverse 
Polish, or postfix notation. The operator 
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for the calculation is entered here after 
entering the numbers. If you type in 

3 6 + 

first, a three is put on stack, then a six. 
At this time, the FORTH interpreter 
recognices the word + . This word takes 
the two top numbers on stack, adds them 
together and places the result, 9, on top 
of the stack. If you now enter the 
command a 9 is displayed on the screen. 
Try it. 

The word + is defined in the following 
manner: 

+ ( nnl - n2) n2=n+nl 

Exercises: 

3*4-7 

(3*5+3)/6-4 
5~2-4~2 
(3+5) *2 
20/(2*5) 

Using the reverse Polish notation, there 
is no need to use brackets. Let us look at 
the following example: 

(3+5)*(4-2)-7 

A BASIC interpreter, who has to decipher 
such an expression starts with the opening 
bracket, then gets a number, an operator, 
once more a number and then the closing 
bracket. At this moment it can do the 
first calculation. The next step indicates 
a requirement for multiplication. This can 
be done after revealing the second 
expression. 



Using RPN, it is easier for a computer 
program to calculate this expression. In 
RPN we enter 

35 + 42-*7- 

You see there is no need for brackets. Fig 
2-2 shows the evaluation on stack. 
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INPUT 



Fig 2-2 Calculating an arithmetic 
expression using RPN. 



To get acquainted with this reverse Polish 

notation, there are some exercises. Type 

them into the computer and use the 
command to get the results. 



Exercises 



3*4-7 
(3*5+3)/6-4 

5~2-4~2 
(3+5)*2 
20/(2*5) 
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Using words 



3. USING WORDS 

You can find a dictionary of all common 
words in appendix A. Here we will discuss 
the most used words for writing programs 
in FORTH. 

3-1 DEFINITION OF NEW WORDS. 

The definition of a new word starts with 
the : sign, followed by a space and the 
name of the new word. Then all words used 
by this new word are listed. The 
definition ends with the ; sign. 

: XXX Eegin of a colon 

definition XXX 

; End of a colon 

definition. 

Until now we have learned only two words. 
The . word and the + word. We want to 
combine these two to a new one, called +. 
(plus print) . It adds two numbers and 
displays the result. The definition is: 

:+.+.; 

Now we can enter 3 6+. RET and get the 
result 9 on the screen. 
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To show that the operators + and - are 
real FORTH words we change the meaning of 
these two words by 

After hitting return we get a warning : 

+ ISN'T UNIQUE OK . 

This indicates that the word + has been 
already defined. The interpreter will use 
the new defined + . When we now type 3 6+ 
. RET, we get the result 3. 

Let us forget this new + word. By typing 

FORGET + RET 

this definition and also all definitions 
made later on are removed from the 
dictionary. 

3-2 CHANGING THE STACK. 

The stack can be changed in three ways. It 
can be enlarged, reduced or rearanged. All 
this can be done with the following words: 

DUP( n - nn) Duplicate top of stack. 

DROP ( n) Throw away the top of 

stack. 

SWAP( nn'-n'n) Reverse the two top 
elements . 

OVER ( n'n-n'nn 1 ) Copy of the second 

element on top. 

ROT ( nln2n3-n2n3nl) Rotate the top 

three elements counter- 
clock wise. 
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Fig 3-1 shows how these words affect the 
stack. 



2 4 5 _3 

2 4 5 3 3 

2 4 3 3 5 

2 4 3 5 3 

2 4 _3 5 

2 4 3 5 3 



DUP 

ROT 

SWAP 

DROP 

OVER 

Fig 3-1 Changing the stack. 

Now let us do some examples and exercises. 
Example 1: 

The stack contains the numbers 3 2 1 with 
the 1 on top of the stack. What words must 
be entered to obtain the sequence 3 2 2 1? 

First we enter OVER and get 3 2 12. 
Second we enter SWAP to obtain the result 
3 2 2 1. 

Example 2: 

On the stack we have 3 2 1 with the 1 on 
top of the stack. Which words must be 
entered to get the sequence 2 3 3? The 
answer is shown below. 



DROP 
SWAP 
DUP 



3 2 1 

3 2 

2 3 

2 3 3 



Exercise: Start with 3 2 
and get 



on 



the stack 



a) 


3 12 


b) 


2 13 


c) 


2 3 1 


d) 


12 3 


e) 


3 2 1 



2 1 
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The word .S ( dot s, print stack) shown in 
Fig 3-2 is very usefull. It is defined in 
most of the FORTH versions and prints the 
contents of the stack without destroying 
it. If your FORTH version doesn't know 

this word just type it in. 



'S SP@ ; 

DEEP SO @ 'S - 2 / 1 - ; 

.S CR DEEP 'S 2 - SO @ 2 - 
DO I @ . -2 +LOOP 
ELSE ." EMPTY" THEN ; 



Fig 3-2 Non-destructive stack print, 



3-3 FUNDAMENTAL OPERATIONS IN ARITHMETIC. 

The word for the fundamental operations of 
arithmetic are defined as follows: 



+ ( nnl-n2) n2=n+nl 

( nnl-n2) n2=n-nl 

* ( nnl-n2) n2=n*nl 

/ ( nnl-n2) n2=n/nl 

This arithmetic is done with 16 bit signed 
fixed numbers. Finding the remainder and 
the quotient of a definition you can use 
two more words. 



MOD ( nnl-n2) n2 is the remainder 

of n/nl . 

/MOD ( nnl-n2n3) n2 is the remainder 

and n3 is the quo- 
tient of n/nl. 
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Example: 

We want to calculate the value of the term 
X~2 + X*Y + Z. The values for X, Y and Z 
are stored on the stack with Z on top of 
the stack. Fig 3-3 shows the sequence of 
words to calculate this value. 





X 


Y 


z 




X 


Z 


Y 




z 


Y 


X 


z 


Y 


X 


X 


z 


X 


X 


Y 




z 


X 


X + Y 






z 


X(X+Y) 








ERG 



SWAP 
ROT 
DUP 
ROT 

+ 



Fig 3-3 Calculating the term X~2+X*Y+Z. 

We can define a word .VALUE which needs 
three numbers on the stack and calculates 
the value of this expression. 

: .VALUE ( nnln2) 

SWAP ROT DUP ROT + * + . ; 

Exercises: Try to get the word sequences 
for 

a) X"2+X*Y-Z 

b) x~2+x*Y+Z~2 

c) X~2-X*Y-Z~2 

with X Y Z on the stack. Insert numbers 
and get the results. 



3-4 INPUT OUTPUT. 

One of the output instructions we have 
already used was the . word. It definition 
is: 



( n) 



Print the top of stack. 
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Other output instructions are: 

." ( ) Print message. The 

message ends with " . 

Example: 

." HELLO " RET HELLO OK 

EMIT ( c) Prints ASCII value c. 
Example: 

69 EMIT RET EOK 

CR ( ) Prints one carriage 

return. 

SPACE ( ) Prints one space. 

SPACES ( n) Prints n spaces. 

•R ( nnl) Print n, right-justi- 
fied in field. Field- 
with is nl. 

Example: 

First we define a word P as 

: P ( n) 4 .R CR ; 
Now we enter: 

CR 1 P 10 P 100 P 

and get the result 

1 

10 

100 

14 



The following words are for data input: 

KEY ( -c) Reads the keyboard and 

places the ASCII value 
on the stack. 

7TERMINAL ( -f) True if the 

break key is pressed. 

But on the ATARI: 

PTERMINAL ( -n) n=l,2,4 if 

one of the yellow 

keys was pressed. 

n=0 if no key was 

pressed. 

START key n=l 

SELECT key n=2 

OPTION key n=4 

There are some more input and output words, 
which will be discussed later on in an ex- 
ample. 



3-5 SOME SIMPLE PROGRAMS. 



Until now we have learned only a few FORTH 
words, however they are sufficient to 
write some simple programs. 

3 -5 a A LANGUAGE TRANSLATOR. 



The concept of the dictionary and of defin- 
ing new words can be used for a language 
translator. As an example we translate 
some words into the german language. 

: I ." ICH " ; 
: AM ." BIN " ; 
: HERE ." DA " ; 
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If we type 

I AM HERE 
we get the translation 

ICH BIN DA 

This is only a very simple example. But 
you can use it to remeber special words in 
a foreign language, chemical formulas, or 
to make a list of your favourite radio 
stations and their frequencies. For 
example: 

: KBIG ." 104 FM " ; 
: KIQQ ." 100 FM " ; 



3-5b WEIGHTWATCHER. 



Some peoples want to calculate the amount 
of calories they had for breakfast or 
dinner. The input of data should be done 
in the following way: 

BEER 1 GLAS 

COKE 2 GLASSES 

BREAD 1 SLICE and so on. 

The program is shown in Fig. 3-4. First 
there is a comment, indicating which units 
of measurement are used for the different 
types of foods. Regard this only as an 
example. Change them as you like. The next 
screen ( we will discuss this expression 
in the next subchapter ) , contains the 
definitions for the units of measurement, 
while the following screen contains the 
definitions for the calories. 
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Fig 3-4 Weightwatcher. 



SCR # 125 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



( AFB WEIGHTWATCHER ef) 

( UNIT GLAS : BEER, APPLEJUICE 
COCA-COLA, CHAMPAGNE 

UNIT SLICE : BREAD 

UNIT PIECE : CAKE, MUFFINS 

UNIT OZ : BEEF, HAM, CHIPS, 

NUTS, CHEESE 
UNIT CUP : RICE, PASTA 
UNIT TBSP [ TABLESPOON ] 

BUTTER, 
UNIT PKG : SEAFOOD, 

) 



SCR 


# 126 





AFB WEIGHTWATCHER cntd 


1 


MEASUREMENT UNITS ) 


2 : 


GLAS DROP + ; 


3 • 


GLASSES * + ; 


4 : 


SLICE DROP + ; 


5 : 


SLICES * + ; 


6 . 


PIECE DROP + ; 


7 • 


PIECES * + ; 


8 


OZ DROP + ; 


9 


OZES * + ; 


10 


OF ; 


11 


START ; 


12 


TBSP DROP + ; : TBSPS 


13 


PKG DROP + ; : PKGS * 


14 


: CUP DROP + ; : CUPS * 


15 





ef) 
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SCR 


# 127 







I AFB WEIGHTWATCHER cntd 


e 


1 


[ CALORIES ) 




2 


BEER 255 ; : COCA-COLA 88 ; 


3 


BREAD 100 ; 




4 


BUTTER 100 ; : BROWNIES 


224 


5 


: RICE 200 ; : GOUDA 108 




6 


: MUFFINS 118 ; 




7 


: LASAGNE 241 ; : RAVIOLI 


210 


8 


: BURITO 47 ; : CNCHIPS 


166 


9 


• PEANUTS 179 ; : PTCHIPS 


156 


10 






11 






12 


: AMOUNT DUP . ; 




13 






14 






15 







START OK 

COCA-COLA 1 GLAS OK 
BREAD 2 SLICES OK 
MUFFINS 2 PIECES OK 
GOUDA 2 OZ.ES OK 
BUTTER 1 TBSP OK 
AMOUNT 840 OK 
CNCHIPS 2 OZES OK 
AMOUNT 1172 OK 
LASAGNE 2 CUPS OK 
AMOUNT 165 4 OK 

Fig 3-4 Weightwatcher . 

If you enter the word BEER, the number 255 
is put on the stack. When you now enter 2 
GLASSES, first the number 2 is put onto 
the stack, then the both top numbers ( 255 
2 ) are multiplied and the result is added 
to the previous amount. 

To start this calculation of calories, you 
have to enter the word START, which puts a 
on top of the stack. The word AMOUNT 
duplicates the top of stack and prints it 
on the screen. 
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3-6 THE SCREEN. 



The writing of a FORTH program can be done 
in two ways. You can enter the FORTH words 
direct into the dictionary or use a text 
editor and write the words into a screen. 
Fig. 3-5 shows an example of a screen. 
FORTH versions running on an ATARI use a 
screen with 16 lines and 32 characters 
each. 

SCR # 148 

( SCRN PRINT 10/14/82 ef) 

1 VARIABLE ROW VARIABLE COLN 

2 : ?FIN ( -f) COLN @ 24 = ; 

3 : 1ROW 40 DO ROW @ C@ 32 + 

4 DUP 128 > IF 32 - THEN 

5 OUTCHR 1 ROW +! LOOP ; 
6 

7 : .SCRN 88 @ ROW ! COLN ! 

8 BEGIN 1ROW CRR 1 COLN +! ?FIN 

9 UNTIL ; 
10 

11 
12 
13 
14 
15 — > 



Fig 3-5 Textscreen. 



This uses 512 bytes of memory. Thus, when 
using a disk drive, you can store 164 
screens. In this booklet we don't describe 
the editor. It has numerous variations in 
the various FORTH versions. Please refer 
to the instruction manual of your FORTH. 

Once you have written a screen, you can 
LOAD it. LOAD compiles the words of a 
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screen into the dictionary. You may also 
LIST a screen. LIST displays the content 
of a disk screen on the TV screen. 
The definitions are: 

LOAD ( n) Compile disk screen n 

into the dictionary. 

LIST ( n) List disk screen n on 
the TV screen. 

There are some conventions in the writing 
of a screen. The first line should be a 
comment, noting the task, the date and the 
programmer. 
For example: 

( WEIGHTWATCHER 10/16/82 ef) 

The comment in FORTH starts with the 
opening bracket and ends with the closing 
bracket. The ( is a FORTH word and must 
therefore be followed by one space. 



( ( ) Beginning of a comment. 

You can use the word INDEX to display all 
first lines of a disk screen on the TV 
screen. 

INDEX ( nn') Display the first 

lines from screen n to 
screen n ' . 

In writing a screen, every new definition 
of a word should start in a new line. This 
makes it easier to read a FORTH program. 
After writing you save the screen on disk 
with the word FLUSH. 

FLUSH ( ) Saves screen on disk. 
20 



3-7 CONSTANTS AND VARIABLES. 

Most of the data used for calculation is 
stored on the stack. Sometimes it is 
necessary to use a constant or a variable. 
The definitions of a constant and a 
variable are: 

CONSTANT NAME ( n) Creates a constant 

NAME with the 
value n. 

VARIABLE NAME ( n) Creates a variable 

NAME and the 
initial value n. 



There is 
constant or 
by name, 
place on the 
name, the 
placed on th 
value of a 
This is done 
the value 
store ) is u 



a difference in calling a 
a variable. Calling a constant 
the value of the constant is 

stack. Calling a variable by 

address of this variable is 
e stack. In order to get the 
variable, you have to fetch it. 

by the word @. For changing 
of a variable, the word ! ( 
sed. 



@ ( a-n) Fetches the content 

stored at address a, 



! ( na) 



Stores n at address a. 



Both instructions, fetch and store use 16 
bit numbers. For storing and fetching a 
single byte, the following words are used. 

C@ ( a-b) Fetches a single byte 

from address a. 



C! ( ba) 



Stores a single byte 
at address a. 
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Try this: 

755 C! The cursor will disappear. 
4 755 C! The letters are upside down. 
3 755 C! Resets to the normal mode. 

Later we will use these words to control 
with the color and sound registers of the 
ATARI . 



You can increment the value of a variable 
by 

VARIABLE V 
V @ 1 + V ! 

or you can use the word +! ( plus-store ) . 

+! ( na) Add n to the content 

at address a. 

Another word ? fetches the content of a 
variable and prints it. 

? ( a) Prints the content 
of address a. 



The FORTH system itself uses several 
constants and variables. We will use the 
variable BASE in the following example. 
The content of this variable determines 
the number base in which calculations are 
made. If the value of BASE is 10, all 
calculations are made in decimal. Changing 
this value to 16, the calculations are 
made in hexadecimal. You may use however, 
any other value for calculating in any 
other number base system. Two words are 
defined to set a specific number base. 

DECIMAL ( ) Set number base decimal. 
22 



HEX ( ) Set number base 

hexadecimal . 



An example: 
We define: 



BIN 2 BASE ! ; 
TRI 3 BASE ! ; 
.BIN ( n) BIN 
.TRI ( n) TRI 



DECIMAL 
DECIMAL 



The word BIN sets the number base to two 
and the word TRI to three. The trinary 
system uses only the numbers 1 and 2 for 
representing a number. The words .BIN and 
.TRI take a decimal value from the stack, 
converts it to the binary or trinary num- 
ber, prints it and switches back into the 
decimal number base. Let us convert some 
numbers . 

120 .BIN 1111000 OK 
140 .TRI 12012 OK 

The word .BASE fetches the content of BASE, 
duplicates it and prints it in decimal. 
The the value is restored in BASE. 

: .BASE BASE @ DUP DECIMAL BASE ! ; 

If you only type BASE @ . you will always 
get the result 10, regardless in which 
number base you are. 

A constant should stay a constant. But you 
can change the value of a constant with 
the ' ( tick ) word. The ' brings the 
address of a definition on the stack. 



NAME ( -a) 



Find the address of 
NAME in vocabulary. 
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Example: 



10 CONSTANT C OK 
C . 10 OK 
12 ' C ! OK 
C . 12 OK 



3-8 COMPARISON. 



The comparison takes place with the two 
top numbers on the stack. They are 
replaced by the result of the comparison. 
The result is a one if the comparison was 
true or the result is a zero, if this 
comparison was not true. This boolean 
flag is used by the control words, 
described in the next chapter, to control 
the flow of a program. The words used for 
comparison are: 

< ( nn'-f) f=l, if n less than n' 

> ( nn'-f) f=l, if n greater than n' 

= ( nn'-f) f=l, if n equal to n 1 

0< ( n-f) f=l, if n is less than zero 

0= ( n-f) f =1 , if n is equal to zero 

Some examples: 

2 3 < . 1 OK 

3 2 < . OK 
3 2 = . OK 
-2 0< . 1 OK 

If you want to use the two top numbers on 
the stack after a comparison you have to 
duplicate them with 

: 2DUP ( nn'-nn'nn") OVER OVER ; 
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Control structures 



4. CONTROL STRUCTURES. 

Until now we have only used words which 
didn't affect the flow of a program. Now 
we will take a closer look at the words 
which do control the flow of a program. 
First, there is no GOTO statement. There- 
fore FORTH is like PASCAL, a highly 
structered programming language. 

As branches in a program it uses state- 
ments as BEGIN. . .UNTIL, BEGIN... WHILE. . . 
REPEAT and IF ... ELSE. . .THEN. 

These statements along with the DO. . .LOOP 
must be used within a colon definition. 
They can not be executed directly by the 
interpreter. 

4-1 DO.. .LOOP . 

The DO... LOOP creates a finite number of 
program loops. The definition is: 

DO ( nn') Loops from n' to n-1 , 

the increment of the 
loop is one. 

LOOP ( ) Terminates the loop 

inside the program. 
Increments the index 
by one. 
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The program loop starts at n 1 and ends at 
n-1. The increment is always one. The set 
of words between DO and LOOP is executed 
from n 1 to n-1. The comparison between the 
loop index and the upper limit is 
performed by the word LOOP. Therefore 
every loop is executed at least once. 

FORTH uses a third stack, wich we haven't 
mentioned until now. This is the RETURN 
stack. In a computer with a 6502 CPU the 
RETURN stack is equal to the stack used by 
the CPU. During execution of a loop, FORTH 
places the loop index on top of this stack. 
With the word I, you can copy the top of 
the RETURN stack to the parameter stack. 

I ( -n) Copy of the return 

stack to the parameter 
stack . 
Example: 

Let us print the numbers from one to nine 
on the screen. 

: NR 10 1 DO I . LOOP ; 
NR 123456789 OK 

Just to show that a loop is executed at 
least once, we change the boundaries of 
the loop. 

: NRR 1 10 DO I . LOOP ; 

NRR 10 OK 

Loops can be nested. In our next example, 
we print a row of numbers from to 9. 
Then, in the next line we print a row of 
numbers from to 8 and so on, until a 
single is printed. The inner loop is 
defined as: 

: IL ( n) DO I . LOOP ; 
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IL expects the upper limit + 1 on the 
stack. The outmost loop is defined as: 

: OL ( n) DO CR 1 - DUP IL LOOP ; 

OL expects the number of lines on the 
stack. To get a printout we call 11 10 OL. 
The result is shown in Fig 4-1. 



11 10 OL 
12 3 4 
12 
2 

2 
2 
2 
2 
2 



1 
1 
1 
1 
1 
1 
1 
1 



3 
3 
3 
3 
3 
3 



6 
6 
6 
6 



7 8 9 
7 8 
7 



OK 



Fig 4-1 Triangle-matrix 



Another example of nested loop is shown in 
Fig 4-2. A rhombus is printed by the two 
words RI and RO. 



SCR # 103 

: STAR ( n) DO 42 EMIT LOOP j 
: RI ( nnln2) DO CR 7 I - 

SPACES 12*1+ STAR DUP 

+LOOP ; 
: RO 1 8 RI -1 -1 7 RI CR ; 
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RO 

* 

*** 

***** 

******* 

********* 

*********** 

************* 

*************** 

*************** 

************* 

*********** 

********* 

******* 

***** 

*** 

* 

OK 

Fig 4-2 Rhombus 

Very often it is necessary to increment 
the loop index by another number instead 
of one or even to decrement the loop index. 
Then, the DO. . ,+LOOP must be used. The 
definition of the DO word is the same as 
above, but the +LOOP expects a number on 
the stack. 

+LOOP ( n) Increments the index 

by n. If n is less 
zero, the index is 
decremented. 

Examples : 

: +NR ( nn') DO I . 2 +LOOP ; 
10 +NR 2 4 6 8 OK 
: -NR ( nn') DO I . -2 +LOOP ; 
10 -NR 10 8 6 4 2 OK 
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4-2 THE RETURN STACK. 

In the last chapter we mentioned the 
RETURN stack. FORTH uses this stack for 
program loops and for storing addresses. 

With care, a programmer can use this stack 
too. The word >R ( to-R ) puts the top 
number of the parameter stack on the 
RETURN stack and the word R> ( R-from ) 
returns it. 



>R ( n) Puts n to the return 
stack . 

R > ( - n) Retrieve number from 

return stack. 

R ( -n) Copy the top of the 

return stack to the 
parameter stack. Same 
as I . 

Use these words only within a colon def- 
inition and outside of loops. 



Example: 

We define a word 2SWAP, which exchanges 
the two top numbers on the stack with the 
third and the fourth number. 

: 2SWAP ( nnln2n3-n2n3nnl) 
>R ROT ROT R> ROT ROT ; 



The evaluation of this word on the stack 
is shown in Fig 4-3. 
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4 


3 


2 


1 






4 


3 


2 






3 


2 


4 






2 


4 


3 




2 


4 


3 


1 




2 


3 


1 


4 




2 


1 


4 


3 



>R 

ROT 

ROT 

R> 

ROT 

ROT 

Fig 4-3 Evaluation of 2SWAP 



4-3 IF. . .ELSE.. .THEN (ENDIF). 

This is the first word to control the flow 
of a program. It is used in the form IF 
<words> THEN or IF <wordsl> ELSE <words2> 
THEN. Some versions of FORTH use ENDIF 
instead of THEN. 



The definitions: 

IF ( f) 
THEN ( ) 



IF ( f) 
ELSE ( ) 
THEN ( ) 



The words between IF 
and THEN (ENDIF) are 
executed if f is non 
zero. 

The words between IF 
and ELSE are executed 
if f is non zero. 
Otherwise the words 
between ELSE and THEN 
(ENDIF) are executed. 



Example: 

We define a word COMP, which compares the 
two top numbers on the stack. The message 
EQUAL is printed, if both numbers are 
equal. If not, the message SMALLER or 
BIGGER is printed. The definition of the 
word COMP is shown in Fig 4-4. 
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: 2DUP ( nn'-nn'nn') 

OVER OVER ; 
: 2 DROP ( nn 1 ) DROP DROP ; 
: NOTEQUAL ( f) IF ." BIGGER " 

ELSE ." SMALLER " THEN ; 
: COMP ( nn') 2DUP = IF 

." EQUAL " 2DROP ELSE < 

NOTEQUAL THEN ; 

2 3 COMP BIGGER OK 

3 2 COMP SMALLER OK 
2 2 COMP EQUAL OK 

Fig 4-4 The word COMP. 



First we define the word 2DUP, which 

duplicates the two top numbers on the 

stack and 2DROP which drops these numbers. 

The word NOTEQUAL prints the message 

SMALLER or BIGGER. 

The word COMP duplicates the two top 
numbers and compares them. If they are 
equal, the message EQUAL is printed and 
the remaining numbers are removed from the 
stack. If they are not equal, another 
comparison is performed and according to 
this comparison the message SMALLER or 
BIGGER is printed. 



If we didn't include the word 2DROP, the 
two numbers would be left on the stack. 
There could be some problems, if this word 
is executed several times without the 
2DROP in a DO. ..LOOP. The stack becomes 
deeper and deeper. The size of the stack 
is limited and after a while, the error 
message STACK FULL is printed and the 
program is aborted. Try to keep the stack 
clean. 
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4-4 BEGIN.. .UNTIL. 

The word UNTIL expects a flag on top of 
the stack. As long as this flag is zero, 
all words between BEGIN and UNTIL are 
repeated. A non zero flag terminates the 
loop. 



The definition: 

BEGIN ( ) The words between 
UNTIL ( f) BEGIN and UNTIL are 

repeated, until a non- 
zero flag is encoun- 
terd before executing 
the word UNTIL. 



Example: 

We use the BEGIN. . . UNTIL loop to add 
together the numbers from 1 to 100. The 
program is shown in Fig 4-5. 

VARIABLE X 
: INCX X @ 1 + DUP X ! ; 
: SUM ( n) BEGIN INCX + X @ 
100 = UNTIL . ; 

SUM 5050 OK 

Fig 4-5 Adding the numbers from 1 to 100 
using BEGIN. . .UNTIL. 



We use the variable X for counting. The 
word INCX increments the value of X. We 
don't use the +! , because we must 
duplicate this value and add it to the 
previous sum. Before starting the loop, a 
zero must be on the stack. The loop 
terminates if the condition X=100 is true. 
The result is then printed. 
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Another example for the BEGIN. . .UNTIL loop 
is the word »E . It prints an E on the 
screen until you hit the OPTION key. 

: .E ( ) BEGIN 69 EMIT 7TERMINAL 
4 = UNTIL ; 



4-5 BEGIN. . .WHILE.. .REPEAT . 

This loop is different from the BEGIN... 
UNTIL loop. The word WHILE expects a flag 
on the stack. As long as this flag is non- 
zero, the words between WHILE and REPEAT 
are executed. An unconditional branch 
leads back to the BEGIN. If WHILE finds a 
zero on the stack, the words between WHILE 
and REPEAT are neglected and the word 
following REPEAT is executed. 



The definitions: 

BEGIN ( ) 
UNTIL ( f) 
REPEAT ( ) 



Examp 



The words between 
BEGIN WHILE and 
REPEAT are executed, 
as long as f is non- 
zero. If f is zero the 
program commences 
after repeat. 



We use the same example as above, adding 
the numbers from 1 to 100. The program is 
shown in Fig 4-6. 

: TEST ( -f) 1 + DUP 101 < ; 

: ADD DUP ROT + SWAP ; 

: SUM BEGIN TEST WHILE ADD 
REPEAT DROP . ; 
SUM 5050 OK 

Fig 4-6 Adding the numbers from 1 to 100 
using BEGIN. . .WHILE. . .REPEAT. 
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First we define the word TEST. A one is 
added to the top number on the stack, 
duplicated and compared with 101. The next 
word ADD duplicates the top of stack and 
rotates the first three elements. The 
deepest element on the stack is the amount 
of numbers that have been added until now. 

The two top numbers are then added and the 
result is placed below the number of 
additions. The word SUM expects a zero on 
the stack. The word TEST is executed 
before WHILE. As long as the number of 
additions is less than 101, the word ADD 
is executed. If the number is equal to 101, 
the numbers on the stack are swapped, the 
result is printed and the remaining number 
is droped. 



4-6 THE CASE STATEMENT. 

In earlier versions of FORTH, there was no 
CASE statement defined. Now most of the 
FORTH versions have it. The definitions 
differ slightly from each other. We will 
describe the CASE statement as it is used 
in QS FORTH and in POWER FORTH for the 
ATARI . 

The definition is: 

CASE: ( n) WORD0 WORDl ... WORDK ; 

CASE: requests a number on the stack. In 
regard of this number, the corresponding 
word is executed. If this number is 0, 
WORD0 is executed or if it is a three 
WORD3 is executed. CASE: does not proof 
the limit. If you call the 10th word and 
there is no word, in most cases the 
program hangs up. You have to proof the 
limits by program. An example you find in 
the next chapter. 
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5 Sample programs 



5. SAMPLE PROGRAMS. 

In the following programs we will use the 
words we have learned up to this point. 
The most efficient way to learn a 
programming language is to type programs 
into the computer and execute them. The 
ATARI sounds and graphics will be used for 
the following samples. 

5-1 SOME GRAFICS 

There are several predefined words in the 
FORTH versions of the ATARI that use the 
grafics. In the programs we use SETCOLOR, 
PLOT and GR. 

SETCOLOR ( nnln2) Set the color 

register . 

n2 color register ( 0- 
4 depending mode ) . 
nl color hue number ( 
see Fig 5-1) . 
n color luminescance, 
even number between 
and 14. The higher the 
number, the brighter 
the display. 
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COLORS SETCOLO: 


R nl 


GRAY 





LIGHT ORANGE (GOLD) 


1 


ORANGE 


2 


RED-ORANGE 


3 


PINK 


4 


PURPLE-BLUE 


6 


BLUE 


7 


BLUE 


8 


LIGHT-BLUE 


9 


TURQUOISE 


10 


GREEN-BLUE 


11 


GREEN 


12 


YELLOW-GREEN 


13 


ORANGE-GREEN 


14 


LIGHT ORANGE 


15 



Fig 5-1 The ATARI hue numbers and colors, 

PLOT ( nnln2) Plot a point at x=n 

y=nl and color c=n2. 
The point x=0 and y=0 
is the upper left 
corner of the screen. 



GR. 



( n) 



Sets the grafic mode 
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5-1 LINES. 

In the program in Fig 5-2 , we define the 
word START. It opens grafic mode 7 and 
sets the background color. The next word 
L>R draws a line from left to right. 

SCR # 140 

( AFB GRAPHICS 10/20 ef) 
1 

2 : START 7 GR. 2 SETCOLOR ; 

3 : R>L ( ) 79 9 DO I 10 2 PLOT 

4 LOOP ; 

5 : U>D ( ) 79 10 DO 78 I 3 

6 PLOT LOOP ; 

7 : L>R ( ) 8 78 DO I 78 2 

8 PLOT -1 +LOOP ; 

9 : D>U ( ) 9 78 DO 9 I 3 

10 PLOT -1 +LOOP ; 

11 : RECT START R>L U>D L>R D>U ; 
12 

13 
14 
15 

Fig 5-2 Lines. 



The next word U>D draws a line down the 
screen, starting at the ending point of 
the previous line. In the same manner the 
words R>L and D>U are defined. They always 
start at the end of the former line. The 
last word RECT combines these words to 
draw a rectangle. 

Here you can see one of the advantages of 
FORTH. Once you have defined a word, you 
can use it within other words. With FORTH 
it is also easy to change a program. You 
may defin a new word with another sequence 
of predefined words. Try it in this 
example. Rearrange the words in such a 
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manner, so that 
bottom line are 
two side lines. 



the top line and the 
drawn first and then the 



In this example, line one of the text 
screen #140 is left blank. In developing 
this screen, the words FORGET START were 
inserted. These words were inserted after 
the first compilation of the screen. This 
prevents the stack of the vocabulary from 
becoming too large, thus recievinig the 
message word NOT UNIQUE. 

In the next program, we will use the 
joystick to draw lines. Suppose the red 
button is in the upper left corner, you 
get the eight values, shown in Fig 5-3 for 
the eight directions of the joystick by 
reading memory cell 632. 




Fig 5-3 Joystick Controller Movement. 

Plug in a joystick in game port one, then 
type 

632 C@ . 

You will get the values shown in Fig 5-3. 
The definition of the words is shown in 
text screen 116. We use two variables X an 
Y. The word +X increments the value of X 
by one. The word +Y is defined as 

: +Y -1 Y +! ; 
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because Y counts positive downward on the 
screen. 

The word STICK expects a value on top of 
the stack which is equal to the content of 
game port one. Then it decides which 
variable has to be incremented or decre- 
mented. 

SCR # 116 

( AFB JOYSTICK 10/18 ef) 

1 VARIABLE X VARIABLE Y 

2 : +X 1 X +! ; : -X -1 X +! ; 

3 : +Y -1 Y +! ; : -Y 1 Y +! ; 

4 : STICK ( n) 

5 DUP 14 = IF +Y ELSE 

6 DUP 13 = IF -Y ELSE 

7 DUP 7 = IF +X ELSE 

8 DUP 11 = IF -X ELSE 

9 DUP 6 = IF +X +Y ELSE 

10 DUP 5 = IF +X -Y ELSE 

11 DUP 9 = IF -X -Y ELSE 

12 DUP 10 = IF -X +Y THEN 

13 THEN THEN THEN THEN THEN 

14 THEN THEN ; 
15 

SCR # 118 

( AFB GRAFICS 10/18 ef) 

1 : START 2 SETCOLOR 7 GR. 

2 10 Y ! 10 X ! ; 

3 : NOT ( n-n 1 ) 1 XOR ; 

4 : PL ( nn 1 ) X @ Y @ 2 PLOT ; 

5 : NPL ( nn') X @ Y @ PLOT ; 

6 : ?STICK 632 C@ DUP 15 = NOT 

7 IF STICK PL THEN DROP ; 

8 : PJOY START PL BEGIN 

9 ?STICK ?TERMINAL UNTIL 
10 GR. ; 

11 

Fig 5-4 Controlling the joystick. 
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The program continues in screen 118. The 
word START sets the grafic mode, the 
background colors and the starting values 
for X and Y. The word NOT is used to 
change the result of a comparison. If a 
comparison is fulfilled, a one is on the 
stack. NOT changes this value to zero. If 
a zero is on the stack, NOT changes it to 
one. With this word the Exclusive OR 
function is used. This function is shown 
in Fig 5-5 for one bit. FORTH applies this 
function bit by bit on the two top numbers 
of the stack . 

Bitl Bit2 XOR 
1 

10 

10 

111 

Fig 5-5 Exclusive Or 

The other logical functions AND and OR are 
also implemented. The definitions are: 

AND ( nnl-n2) logical AND, bitwise 
OR ( nnl-n2) logical OR, bitwise 
XOR ( nnl-n2) logical XOR, bitwise 

Now we continue with the program. The word 
PL plots a point at X and Y in color two. 
The word 7STICK determines if the joystick 
is moved in one of the eight directions. 
Then a point is plotted. The word PJOY 
combines all these words to plot lines on 
the TV screen. 

The word NPL plots the point in the color 
of the background. This erases a point on 
the TV screen. We can insert this word in 
?STICK to move a point across the TV 
screen . 

: 7STICK 632 C@ DUP 15 - NOT 
IF NPL STICK PL THEN DROP ; 
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5-2 PATTERN. 

The program in Fig 5-6 creates a random 
pattern. It uses a random number generator. 
RND# expects a number n on the stack. A 
random number between and n-1 is 
generated. As a starting value for the 
random numbers, we use the content of 
memory location 53770. In this memory 
location there are created random numbers 
inside the ATARI. 



SCR # 117 

( AFB RANDOM PATTERN ef) 

1 ( RANDOM GENERATOR ) 

2 VARIABLE RND 53770 @ RND ! 

3 : RANDOM RND @ 31421 * 6972 + 

4 DUP RND ! ; 

5 : RND# ( n-n") RANDOM U* SWAP 

6 DROP ; 

7 : RNDP 7 GR. 2 SETCOLOR 

8 BEGIN 16 RND# 80 RND# 

9 16 RND# PLOT 

10 ?TERMINAL UNTIL ; 

11 

12 

13 

14 

15 



Fig 5-6 Random Pattern. 



The word RNDP sets the grafic mode 7 and 
the background color. In a loop, 
terminated by one of the yellow keys, it 
creates random numbers for the X Y 
coordinates and the color. The result is 
displayed on the TV screen. 
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5-3 SOUND AND COLOR 

The word SOUND uses four parameters on the 
stack . 

SOUND ( nnln2n3) n ( 0-15 ) is the 

volume, nl a 
distortion, n2 the 
frequency and n4 
the channel. 

For creating several sounds and noises, we 
use the random number generator and a wait 
loop. The word WAIT requests one number 
on the stack. The higher the number, the 
longer the delay. The text screens 81 to 
85 in Fig 5-7 contain some sound words, 
such as the word THUNDER in screen 81. 
Using random pitch and volume, a sound 
like a swarm of flies is generated. ENG 
uses intermittent sound for noise that 
sounds like an engine. 

Fig 5-7 Sound. 
SCR # 081 

( AFB SOUND 10/2 ef) 

1 : WAIT DO LOOP ; 

2 : C ( n-n') 11 RND# 5 + 10 * 

3 SWAP / ; 
4 

5 : OFF SOUND 

6 1 SOUND ; 
7 

8 : T 100 5 DO I C 8 I SOUND 

9 IC8I20+1 SOUND 

10 DUP WAIT 5 RND# +LOOP OFF ; 

11 

12 : THUNDER 300 T ; 

13 

14 

15 — > 
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SCR # 082 

( AFB SOUND cntd ef) 

1 ( FLY) 

2 : PI ( n) 7 RND# 250 + ; 

3 : V ( n) 4 RND# 6 + ; 

4 : F V 14 PI SOUND ; 

5 : FLY BEGIN F 500 WAIT 

6 7TERMINAL UNTIL OFF ; 

7 ( ENGINE ) 

8 : ENG BEGIN 10 10 250 SOUND 

9 1500 WAIT OFF 7TERMINAL 
10 UNTIL ; 

11 
12 
13 
14 

15 — > 



SCR # 083 

( AFB SOUND cntd ef) 

1 : INCR ( n) 10/1 

2 DO I 10600 SOUND 

3 LOOP ; 

4 : DECR ( n) 2 * 10 / DUP 1 

5 SWAP DO DUP 10 60 SOUND 

6 -1 +LOOP DROP ; 

7 : T 100 DO I INCR 2 +LOOP ; 
8 

9 : TT 100 DO I DECR -2 +LOOP ; 
10 

11 : CC 100 DO I INCR I DECR 

12 -2 + LOOP ; 
13 

14 

15 — > 
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SCR # 084 

( AFB SOUND cntd ef) 

1 15 VARIABLE VI 15 VARIABLE V2 

2 15 VARIABLE V3 

3 : ST 15 VI ! 15 V2 ! 15 V3 ! ; 

4 : SS VI @ 8 20 SOUND 

5 V2 @ 8 40 2 SOUND 

6 V3 @ 8 70 2 SOUND ; 
7 

8 : DEC -1 VI +! -1 V2 +! 

9 -1 V3 +! ; 

10 : EXPL ST BEGIN SS DEC 

11 1000 WAIT V3 @ 0< UNTIL ; 
12 

13 
14 
15 

SCR # 085 

( AFB SOUND cntd ef) 

1 : SI 15 DO I 10 60 I 2 * - 

2 SOUND 100 WAIT LOOP ; 
3 

4 : SIREN BEGIN SI OFF 50 WAIT 

5 7TERMINAL UNTIL ; 
6 

7 

8 : DWN 200 100 DO 8 10 I SOUND 

9 100 WAIT LOOP ; 

10 : UP 100 200 DO 8 10 I SOUND 

11 100 WAIT -1 +LOOP ; 

12 : EUSI 10 DO UP DWN LOOP 

13 OFF ; 
14 

15 

The word CC in screen 83 simulates a 
dropped coin. These examples are from the 
book " ATARI BASIC Learning by Using " by 
Tomas E. Rowley. 
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Some more sound words are in the next 
screens. EXPL simulates an explosion by 
changing the volume and the pitch on three 
channels. In the last screen we have the 
word SIREN for simulating an american 
police siren and the word EUSI for an 
european police siren. 

The best way to create sound effects is 
the methode of trial an error. Define new 
words and combine them in different ways. 

SCR # 086 

( AFB COLOR 10/22 ef) 

1 : CF 712 C@ 710 C@ 712 C! 

2 709 C@ 710 C! 709 C! ; 
3 

4 : CCF 100 DO CF 100 WAIT 

5 LOOP GR. ; 
6 

7 : BG 254 DO I 712 C! 500 WAIT 

8 2 +LOOP ; 
9 

10 : FG 254 DO I 710 C! 500 WAIT 

11 2 +LOOP ; 
12 

SCR # 087 

( AFB COLOR cntd ef) 

1 : DI 16 DO I 709 C! 100 WAIT 

2 LOOP ; 

3 : AR 14 DO I 709 C! 100 WAIT 

4 -1 +LOOP ; 
5 

6 : CURS ( nnl) 85 ! 84 C! ; 

7 : CLR 125 EMIT ; 

8 : DIS CLR 10 5 CURS 

9 222 710 C! . " HELLO " 
10 1000 WAIT DI KEY AR ; 
11 

12 

Fig 5-8 Color. 
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In the text screens 86 and 87 ( Fig 5-8 ) , 
the store and fetch words are used to 
change the contents of the color registers. 
The word CF rotates the contents of the 
color registers. This causes a quick 
change of foreground and background colors. 
Use this word in a new definition of 
THUNDER. BG changes the background color 
and FG changes the foreground color 
In the next screen, the text HELLO 
disappears and, after pressing a key, it 
reappears. The word DIS uses two other 
words CLR and CURS. The word CURS requests 
two numbers on the stack. N is the 
horizontal row and nl the vertical column. 
By sending out an end of file character ( 
155 EMIT ) the cursor is placed at the 
specified position. The word CLR clears 
the TV screen and positions the cursor in 
the upper left corner. 



5-4 HEXDUMP 

Most of the FORTH versions have defined 
the word DUMP as that which dumps the 
content of memory locations on the screen. 
The program in Fig 5-9 ( screens 88 and 89 
) is a similar program. The word DDUMP 
requests two numbers on the stack. N is 
the starting address and nl the number of 
lines, eight bytes each. 



SCR # 088 

( AFB HEXDUMP 10/22 ef) 

1 HEX 

2 : LNE ( n) DUP DUP 8 + SWAP 

3 DO I C@ 3 .R LOOP ; 

4 : NR CR CR 5 SPACES 8 

5 DO I 3 .R LOOP CR ; 

6 : DOT DROP 2E ; 
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7 

8 : ATARI ( n-n) DUP 20 < IF DOT 

9 ELSE DUP 7D = IF DOT ELSE 

10 DUP 7E = IF DOT ELSE DUP 90 = 

11 IF DOT ELSE DUP 9C = IF DOT 

12 ELSE DUP FB > IF DOT THEN 

13 THEN THEN THEN THEN THEN ; 
14 

15 — > 



SCR # 089 

( AFB HEXDUMP cntd ef) 

1 : ASCII ( a-a) DUP DUP 8 + 

2 SWAP DO I C@ ATARI EMIT 

3 2 SPACES LOOP ; 
4 

5 
6 
7 

8 : HDUMP ( n-n 1 ) CR DUP . SPACE 

9 LNE CR 7 SPACES ASCII 8 + ; 

10 : DDUMP ( an) HEX 

11 NR DO HDUMP LOOP DROP 

12 DECIMAL ; 

13 DECIMAL 
14 

15 

Fig 5-9 Hexdump. 



An example of the printout is shown in Fig 
5-10. 
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HEX 3008 9 DDUMP 

12 3 4 5 



3008 
3010 
3018 
3020 
3028 
3030 
3038 
3040 
3048 



86 4B 45 59 4C 49 D4 EA 
fKEYLITj 
2F D9 C 60 D F3 2F 7C 

/ y . . s / I 

C 60 D El 8 1C C 3D 

• 3 • • • — 

C FA 8 F3 2F 70 D 9C 

z . s / p 
B 9C B 91 C 9 F 59 

q . . . Y 
8 4 22 B FA 8 7A 

" z z 
8 E4 FF F B 31 87 
d . . . 1 . g 
43 4F 4E 54 52 4F CC 8 
CONTROL . 
30 5F 11 13 20 86 2C 46 
. f , F OK 



Fig 5-10 Hexdump Printout. 



The word ATARI changes all unwanted 
characters (for example the byte 9B which 
erases the screen) to dots. This word is 
used within the word ASCII, which prints 
the ASCII characters. LNE prints one line 
of hex bytes while NR does the numbering 
on top of the printout. 

Next we look at some mathematical examples. 



5-5 LARGEST COMMON DIVISOR. 

We use the algorithm of EUCLID to 
calculate the largest common divisor of 
two numbers A and B. First the remainder 
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of A/B is determined by A B MOD . If the 
remainder R is zero, B is the largest 
common divisor. If R is not zero, A is set 
to B and B is set to R and the modulo 
division is repeated until R is zero. The 
definition of LCD is shown in Fig 5-11. 

( AFB MATH EXAMPLES ef) 

1 

2 : LCD BEGIN SWAP OVER MOD DUP 

3 0= UNTIL DROP . ; 



4 



27 21 LCD 3 OK 



Fig 5-11 Largest 

STACK 



Common Divisor. 



TOS 



INPUT 

27 

21 

BEGIN 

SWAP 

OVER 

MOD 

DUP 

0= 

UNTIL 

SWAP 

OVER 

MOD 

DUP 

0= 

UNTIL 

SWAP 

OVER 

MOD 

DUP 

0= 

UNTIL 

DROP 



Fig 5-12 Largest Common Divisor. 
Evaluation on the stack. 
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For a better understanding of this 
definition, the evaluation on the stack 
for the given example is shown in Fig 5-12. 



5-6 FIBBOCONACCI NUMBERS. 

Fibboconacci numbers are a series of 
numbers. The next element of this series 
is always the sum of the two predecessors. 
The series starts with zero and one. The 
word FIB in Fig 5-13 creates these numbers. 
This is an example for the BEGIN. . .WHILE. . . 
REPEAT loop. FIB expects on the stack one 
number which determines the end of the 
series. If the calculated element is 
larger than this number, the calculation 
stops . 



SCR # 099 

( AFB MATH EXAMPLES cndt ef) 
1 

2 : FIB ( n) CR 1 BEGIN DUP 

3 >R ROT DUP R> > WHILE 

4 ROT ROT DUP ROT + DUP . 

5 REPEAT DROP DROP DROP ; 
6 

100 FIB 

1 2 3 5 8 13 21 34 55 89 144 OK 



Fig 5-13 FIBBOCONACCI Numbers 



The evaluation on the stack for the first 
three loops is shown in Fig 5-14. 
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20 

FIB 



1 

BEGIN 

DUP 

>R 

ROT 

DUP 

R> 

> 

WHILE 

ROT 

ROT 

DUP 

ROT 

+ 

DUP 

REPEAT 

DUP 

>R 

ROT 

DUP 

R> 

> 

WHILE 

ROT 

ROT 

DUP 

ROT 

+ 

DUP 

REPEAT 
DUP 



Fig 5-14 FIBBOCONACCI Numbers. 
Evaluation on the stack. 
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5-7 PRIME NUMBERS. 

In the next example, we calculate the 
prime numbers between two limits. The 
algorithm used is very simple. The word 
PTEST tests within a loop, if a number is 
divisible by the loop index. The loop 
starts with two and ends at half of the 
number. In this program the predefined 
word LEAVE is used. This word terminates 
the execution of a loop. The program 
continues after the next LOOP word. 

LEAVE ( ) Terminates a loop 

If TEST finds a remainder equal to zero, a 
zero is placed on the stack and the loop 
is left. The program then continues with 
the word DUP. With a zero on the stack the 
word . PRIM is not executed and the top of 
stack is discarded. To format the output 
a variable #ROW is used. The program is 
shown in Fig 5-15. 



SCR # 100 

( AFB MATH EXAMPLES cndt ef) 
1 

2 4 VARIABLE #ROW 

3 : TEST ( n-f) MOD 0= ; 

4 : .PRIM ( n-n) DUP 4 .R #ROW @ 

5 DUP 0= IF CR DROP 4 ELSE 

6 1 - THEN #ROW ! ; 

7 : PTEST ( n) DUP 2 / 2 DO DUP 

8 I TEST IF LEAVE THEN LOOP 

9 DUP IF .PRIM ELSE DROP 
10 THEN DROP ; 

11 

12 : PRIM ( nn') CR 4 #ROW ! 

13 DO I PTEST LOOP CR ; 
14 

15 
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200 1 PRIM 

1 3 5 7 11 

13 17 19 23 29 

31 37 41 43 47 

53 59 61 67 71 

73 79 83 89 97 

101 103 107 109 113 

127 131 137 139 149 

151 157 163 167 173 

179 181 191 193 197 

199 

OK 

Fig 5-15 Prime Numbers. 



5-8 MORE SOUND AND GRAFICS. 

I found some new sounds in the September 

issue of COMPUTE! magazine. I translated 
these examples from BASIC to FORTH. These 
new sound words are shown in Fig 5-16. 
There is another thunder which you can 
combine with the old thunder and rain to 
create stormy weather. 

SCR # 094 

( MORE SOUND 10/26 ef) 



B ( -n) 255 RND# 50 + ; 

X ( -n) 200 RND# ; 

Tl ( ) B 1 DO 15 8 I SOUND 



1 
2 
3 

4 LOOP ; 

5 : T2 ( ) X 1 DO LOOP ; 

6 : TH ( ) 2 DO Tl OFF 

7 T2 OFF LOOP ; 

8 : STO TH TH THUNDER TH ; 

9 : Rl ( n) 2 SOUND ; 

10 : RAIN 150 DO I 10 / Rl 

11 100 WAIT 2 +LOOP BEGIN 

12 7TERMINAL UNTIL ; 
13 

14 
15 
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( MORE SOUND cntd ef) 

1 : HB 10 1 DO 15 3 12 SOUND 

2 1000 WAIT OFF 6000 WAIT LOOP ; 
3 

4 -1 VARIABLE XX 

5 : LOl 40 150 DO I 10 / 15 

6 SOUND XX @ +LOOP ; 

7 : LO 50 1 DO LOl XX @ -7 > IF 

8 -1 XX +! THEN LOOP ; 

9 : LS 10 10 40 1 SOUND 

10 8 10 10 2 SOUND 

11 10 10 90 3 SOUND ; 

12 : STE 2 DO LS 4000 WAIT XSND 

13 1000 WAIT LOOP ; 

14 : STEAM -1 XX ! LO STE LO 

15 XSND ; 

Fig 5-16 More sound. 

The program in Fig 5-17 produces the 
grafic shown in picture 5-18. The lines 
are drawn in grafic mode eight. Draw this 
picture as it is and then a second time 
with the background color. It appears and 
disappears . 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



( MORE 
VARI 
CG 8 
SG 2 
PG 1 
-X - 

+x 

-Y - 
+Y 

LG X 
LL 2 
DD 1 
RR 2 
UU 1 
PIC 



GRAFICS 10/26 
ABLE X VARIABLE Y 

GR. 2 SETCOLOR 
60 X ! 10 Y ! ; 
6 80 1 PLOT ; 
10 X +! 
10 X +! 
10 Y +! 
10 Y +! 

@ Y 8 ; 



ef) 



DRAWTO ; 
DO PG LG -X LOOP 
5 DO PG LG +Y LOOP 
DO PG LG +X LOOP 
5 DO PG LG -Y LOOP 
CG SG LL DD RR UU ; 



Fig 5-17 Rayshaped pattern. 
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Fig 5-18 Picture of the rayshaped pattern, 



5-9 USING THE GAME PORTS FOR CONTROL 
APPLICATIONS. 



The ATARI uses two 6520 Peripheral 
Interface Adapters ( PIA ) for the game 
ports. These ports can be used to transmit 
or to recieve data. The 6520 provides two 
bi-directional ports, A and B; two control 
registers and four interrupt lines. In our 
examples we only use the ports and the 
control registers. The four registers have 
the following addresses: 



PORTA 

PORTB 

PACTL 

and PBCTL 



$D300 
$D301 
$D302 
$D303 
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The data direction for the two ports is 
set by two data direction registers, DDRA 
and DDRB. Both, the ports and the data dir- 
ection registers, have the same addresses. 

Bit two of the control register determines 
which one of the two registers is accessed. 
If bit two of the control register PACTL 
is one, PORTA acts as a port. If bit two 
is zero, PORTA acts as a data direction 
register. A line of a port is set to an 
output if the corresponding bit in the 
data direction register is set to one. 
Respectivly a zero marks a line as input. 

The word INIT in Fig 5-19 sets the four 
lower bits of port A as outputs. These 
four lines are available at game port 1. 

SCR # 104 

( AFB PORT CONTROL 10/16 ef) 

1 HEX D300 CONSTANT PORTA 

2 D3 01 CONSTANT PORTB 

3 D302 CONSTANT PACTL 

4 D3 03 CONSTANT PBCTL 

5 : INIT 3 PACTL C! 

6 OF PORTA C! 

7 34 PACTL C! 

8 00 PORTA C! ; 
9 

10 DECIMAL 
11 

12 : PA! ( b) PORTA C! ; 

13 : WAIT ( n) DO LOOP ; 
14 

15 

Fig 5-19 Initialisation of the ports. 



We use the circuit shown in Fig 5-20 to 
demonstrate the output of data. 
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12 3 4 5 

• • • • o 
• o • o 

6 7 8 9 



1 =PAO 

2 = PA1 

3 = PA2 

4 = PA3 



7 =GND 

8 = VCC 



GAME CONNECTOR I 



REPEAT 4 TIMES 



Q VCC = + 5V 



INSIDE ATARI 
220 

osM/W-p-(H)- 

.001 



€C_ 



220 

-MAr 



NPN 

TRANSISTOR LED 



Is 



Fig 5-20 Schematic of the circuit. 



GND 




Fig 5-21 The experimenter board, 
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Fig 5-21 The experimenter board. 



Screen # 105 in 
programs. 



Fig 5-22 contains three 



RL simulates a 
LED ■ s turn on and 
The sequence star 
This turns on LED 
turned on by mu 
stack with two. 
multiplication th 
on. The last LED 
number eight on 
on top of the stac 
sequence restarts 



running light. The four 
off one after the other, 
ts with one on the stack, 
one. The second LED is 
ltiplying the top of the 
With an additional 
e third LED is switched 
is turned on with the 
the stack. If the number 
k is equal to 16 the 
with one. 
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SCR # 105 

( AFB PORT CONTROL cntd ef) 

1 : RL 1 BEGIN DUP PA! 2 * DUP 

2 16 = IF DROP 1 THEN 2000 WAIT 

3 7TERMINAL UNTIL ; 
4 

5 : LB BEGIN DUP PA! 2 * 1 + 

6 DUP 31 = IF DROP THEN 

7 1000 WAIT 7TERMINAL UNTIL ; 
8 

9 : 0INIT INIT DUP PA! ; 

10 : NEW 1 SWAP DUP 1 = IF DROP 

11 ELSE 1 DO 2 * LOOP THEN ; 

12 : ON ( n) NEW OR DUP PA! ; 

13 : OFF ( n) NEW XOR DUP 

14 PA! ; 
15 

Fig 5-22 Running light, lightbar and ON OFF 



LB simulates a lightbar. The LED's are not 
turned off until all four LED's are on. 
The sequence starts with one. By 
multiplying with two and adding one we get 
three. This value turns on LED one and two. 

An additional multiplication and addition 
leaves the value seven on top of the stack. 
This turns on LED one, two and three. 
After all LED's are turned on a zero on 
top of the stack turns all off. Both 
programs use the WAIT loop. 

The words defined in screen 105, line 9 
thru 14, can be used to turn on or off a 
particular LED. 

1 ON turns on LED one, 
3 ON turns on LED three 
and 1 OFF turns off LED one. 
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The word OINIT initialises port A, places 
a zero on top of the stack and turns off 
all LED's. The word NEW determines which 
LED has to be turned on. The state of the 
four LED's is stored in the four lower 
bits of a byte on top of the stack. A one 
markes the corresponding LED as turned on, 
a zero marks it as turned off. Using the 
logical OR function the new LED is added. 
In the same way a LED is turned off using 
the logical XOR function. 

The application in Fig 5-23 simulates a 
dice. Seven LED's are grouped to form the 
spots of a dice ( see Fig 5-25) . The word 
DINIT initialises port A. Seven lines are 
used as output, one line as an input. A 
pushbutton is connected to this line ( see 
Fig 5-24) . The word PA@ fetches the 
content of port A and masks out the seven 
low order bits. ( 128 AND ) . With 128 XOR 
bit eight is inverted. The number 128 is 
read if the button is pressed and a zero 
is read if it is not pressed. The next 
words ID thru 6D relate the decimal 
numbers 1 thru 6 to the six spots of the 
dice. These words use a binary pattern. 



For instance 0001000 turns on the LED in 
the middle. This is equal to a throw of 
one. 0D is used as a dummy definition in 
the CASE: statement CDICE. 
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SCR # 106 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



( AFB PORT CONTROL cntd ef ) 

HEX 

: DINIT 30 PACTL C! 

7F PORTA C! 

34 PACTL C! 

00 PORTA C! ; 
DECIMAL 
: PA@ ( -b) PORTA C@ 128 AND 



128 XOR 
ID 0001000 PA! 
2D 1000001 PA! 
3D 0101010 PA! 
4D 1010101 PA! 
5D 1011101 PA! 
6D 1110111 PA! 
0D ; — > 



2 BASE ! 



DECIMAL 



SCR # 107 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



( AFB PORT CONTROL cntd ef ) 
CASE: CDICE 0D ID 2D 3D 

4D 5D 6D ; 
: BUTTON 1 BEGIN DROP PA@ DUP 
UNTIL 500 WAIT 
BEGIN WHILE PA@ 
REPEAT ; 
: DICE 1 BEGIN 1 + DUP 7 = 
IF DROP 1 THEN DUP CDICE 
PA@ UNTIL 500 WAIT 1 
BEGIN WHILE PA@ REPEAT 
DROP ; 
: DODI BEGIN BUTTON DICE 

1000 WAIT 7TERMINAL UNTIL ; 



Fig 5-23 Simulating a dice, 
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The word BUTTON waits in the BEGIN. . .UNTIL 
loop until the button is pressed. Then 
a delay loop follows to suppress the 
bouncing of the key. The BEGIN. . .WHILE. . . 
UNTIL loop is left on releasing the button. 
The word DICE starts the count. Pressing 
the button stops it and the thrown number 
is shown on the display. 
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Fig 5-25 The dice. 
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6 Text and strings 



6. TEXT AND STRINGS. 

In the standard version of FORTH, there 
are no strings or string functions 
implemented. Yet, it is very easy to enter 
text or to print out text. 



6-1 INPUT/ OUTPUT OF TEXT. 

The word EXPECT expects the input of 
characters. The definition is: 

EXPECT ( an) Expects n characters 

of text at address a. 
Also terminated by CR. 

For the input of text you can use a 
special area in memory, called PAD. The 
address of PAD is always 68 bytes beyond 
the top of the vocabulary stack. 

PAD ( -a) Address of PAD is put 
on the stack. 

Example: 

PAD 15 EXPECT RET THIS IS FORTH RET 



64 



The text THIS IS FORTH is stored in PAD. 
To get the momentary address of PAD type 
PAD . and try to get the text out onto the 
screen with DUMP or DDUMP . You can also 
use the predefined word TYPE. 

TYPE ( an) Prints n characters of 

text, starting at 
address a. 

If we have stored text as in the example 
above and made no new definitions, which 
would alter the address of the top of the 
vocabulary stack, we can get the text from 
PAD with: 

PAD 15 TYPE RET THIS IS FORTH 

We can make a printout of only a part of 
the text. We are able to change the start- 
ing address and the number of characters. 

PAD 2+2 TYPE prints IS. 

We use a new word, TEXT, to read text into 
PAD. In some versions TEXT is a predefined 
word. The definition is: 

: TEXT ( c) 

PAD 72 32 FILL WORD HERE 
COUNT PAD SWAP CMOVE ; 

First, we must describe several new words 
used in this definition. The word FILL 
fills memory cells withe the byte b. 

FILL ( anb) Fill n bytes, starting 

at address a, with the 
byte b. 

The next new word is WORD. There are two 
different definitions of WORD in FIG FORTH 
and in FORTH-79. 
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WORD ( c) 



Read text from the 
input buffer until the 
delimiter c is encoun- 
tered. ( FIG FORTH ) . 



WORD ( c-an) 



Read text from the 
input buffer, until 
delimiter c is encoun- 
tered. Leave the 
address a and the 
length n of the text 
on the stack. ( FORTH- 
79 ) 



In our example we use a FIG version of 
FORTH. Therefore we need two more words 
HERE and COUNT. HERE leaves the address of 
the first free memory location of the 
vocabulary stack on the parameter stack. 
All text, coming from the keyboard is 
taken to an input buffer TIB. After 
hitting RETURN this text is moved to the 
top of the vocabulary stack. 



HERE ( a) 



Leaves the address a 
of the first free 
memory location of the 
vocabulary stack on 
the parameter stack. 



The first byte of the text is the length 
byte. It gives the length of the text. The 
word COUNT converts this byte in such a 
manner that it can be used by TYPE. 

COUNT ( a-a'n) Converts the length 

at address a to a' and 
the length n. 

These are the parameters, TYPE needs for 
printing text. The last word CMOVE moves n 
bytes from address a to address a'. 
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CMOVE ( aa'n) Moves n bytes from 

a to a ' 



CMOVE moves the first byte from a to a 1 , 
the second byte from a+1 to a'+l and so on. 
For a correct moving of bytes, the desti- 
nation address a' must not be in the range 
of a<a'<a+n. 



Example: 

13 TEXT THIS IS TEXT RET 

There is no RETURN between the word TEXT 
and the word THIS. If you now type : 

PAD 20 TYPE RET , you get THIS IS TEXT 

As a delimiter we used the byte 13. This 
is the ASCII code for CARRIAGE RETURN. Now 
let's try this: 

32 TEXT THIS IS TEXT RET IS ? 

What happens ? If we type PAD 20 TYPE, we 
get the printout THIS. We used the ASCII 
code, 32, of the space character as 
delimiter. Therefore only the word THIS 
was moved to PAD. The interpreter finds 
more text and however tries to interpret 
it. IS is not a defined word, so we get 
the error message IS ? . 

As an example for text input, we will make 
the input for a mailing list. The text is 
stored in PAD. Later we will see how to 
store this text on the disk. 

Screen 91 in Fig 6-1 shows the input of a 
mailing address. The word FNAME expects 10 
characters at the starting address of PAD. 
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The next word adds ten to the starting 
address, then it expects an additional ten 
characters. The other words are defined 
in the same way. 



SCR # 091 



( AFB TEXT cntd 

FNAME PAD 10 EXPECT ; 

LNAME PAD 10+10 EXPECT 

STREET PAD 20 + 15 EXPECT 

CITY PAD 35 + 15 EXPECT ; 

STATE PAD 50+2 EXPECT ; 

ZIP PAD 52+5 EXPECT ; 

INPUT 125 EMIT CR 
PAD 58 32 FILL 



ef) 





1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 

Fig 6-1 Input for a mailing list. 

The word INPUT clears the screen and fills 
the PAD with blanks. Next the message 
FIRST NAME is displayed on the screen. 
After this FNAME expects ten characters. 
In the same way, all the other inputs are 
made for this mailing list address. 



FIRST NAME 


ii 


FNAME 


CR 


LAST NAME 


ii 


LNAME 


CR 


STREET 


ii 


STREET 


CR 


CITY 


H 


CITY 


CR 


STATE 


ii 


STATE 


CR 


ZIP 


ii 


ZIP 


CR 



Type in your 
The content 
displayed on 
they do not 
little heart 
the ASCII z 
zeros to th 
screen these 
hearts. To 
definition o 



address and 
of the 58 

the screen. 

fill all byt 
s. This is 
ero character 
e end of the 

zeros are di 

get rid of 

f TYPE, shown 



then PAD 
bytes 
All n 
es are f 
the pr 
. FORTH 
text. On 
splayed 
this we 
in FIG 



58 TYPE, 
of PAD are 
ames, if 
ollowed by 
intout of 
adds three 

the ATARI 
as little 

use a new 
6-2. 
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: TYPE -DUP IF OVER + SWAP 

DO I C@ 127 AND DUP 0= 

IF DROP ELSE EMIT THEN 
LOOP ELSE DROP ENDIF ; 

Fig 6-2 Another TYPE. 

In the new definition of TYPE, the word 
-DUP ( query dup ) is used. This word 
duplicates the stack only if it non-zero. 



The printout of an address is shown in FIG 
6-3, screen 92. The word PRINT expects two 
numbers on the stack. The first number is 
the startinq address, relative to the 
starting address of PAD. The second number 
gives the number of characters being 
printed. 



SCR # 092 

( AFB TEXT OUTPUT ef) 

1 : PRINT ( nn') PAD + SWAP 

2 -TRAILING TYPE ; 

3 : OUT CR 10 PRINT SPACE 

4 10 10 PRINT CR 15 20 PRINT 

5 CR 15 35 PRINT SPACE 

6 2 50 PRINT SPACE 5 52 PRINT 

7 CR ; 
8 

Fig 6-3 Printout of an address. 

For example, 10 PRINT prints 10 
characters, starting at address zero of PAD. 



The word OUT prints the address. An 
example is shown in Fig 6-4. 
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FIRST NAME EKKEHARD 
LAST NAME FLOEGEL 

STREET 53 REDROCK LANE 
CITY POMONA 
STATE CA 
ZIP 91766 
OK 
OUT 

EKKEHARD FLOEGEL 
53 REDROCK LANE 
POMONA CA 91766 
OK 
.SCRN 

Fig 6-4 Sample printout. 

6-2 FORMATTING THE OUTPUT. 

FORTH uses several words to format the 
output. These words require that the 
number on top of the stack is a double 
precision, 32 bit, number. A double 
precision number is entered on the stack, 
if there is a decimal point in this number. 

Examples: 

123.45 1.2345 1234. 

These are double precision numbers. There 
are a few operators used for calculating 
with these 32-bit numbers. 

D+ ( ddl-d2) d2=dl+d 

DMINUS ( d-d') d'=-d 

D. ( d) Prints d. 

For more words see Appendix A. There is no 

double precision multiplication or 

division. These words must be written in 
machine language. 
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The words for formatting an output are: 

<# ( d) Start converting a num- 
ber into a string. 

# Convert one digit and 

add the character to 
the string. 

#S Convert remaining 

digits. 

#> ( -an) End of conversion. The 

address a is the 
starting address and n 
is the length of the 
string. 

HOLD ( c) Insert the character 

c in the string. 

Example: 

We define a word .$ which prints us 10000 
for exmple as $100.00 . 

: .$<### 46 HOLD #S 36 HOLD #> TYPE ; 

12344. .$ RET $123.44 

The conversion of this number to a string 
starts at the end of this number. First 
the two digits 4 4 are converted. Then a 
decimal point is inserted, after which the 
rest of the number is converted. The $ 
sign is placed in front of this number and 
the conversion is terminated with #>. This 
places the address and the length of the 
string, ready for the word TYPE, on top of 
the stack. Another example is the printout 
of a double precision unsigned number: 

: UD. <# S# #> TYPE SPACE ; 
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The word NUMBER converts a string to a 
double precision number. 

NUMBER ( a-d) Convert a string at 

a+1 to a double 
precision number. At 
address a the length 
of the string is 
stored. The variable 
DPL contains the 
number of digits right 
from the decimal point. 

We use this word in the program CASH- 
REGISTER, shown in Fig 6-5. 

The word CASH opens the cash register and 
displays the amount of $0.00 in the upper 
right corner of the TV screen. The last 
word in the definition of CASH is the word 
QUIT. It terminates the interpreter 
without printing OK. A new amount is 
added by the word $. 

$ 120.00 adds $120 to the pre- 
vious amount. The result is displayed. $ 
uses the word NUMBER to convert the string 
into a double precision number. WORD 
places the text at HERE, with the first 
byte as length byte. 
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SCR # 101 

( AFB CASHREG 11/12/82 ef) 

1 : CURS ( nnl) 85 ! 84 C! ; 

2 : >S ( d-an) <# # # 46 HOLD #S 

3 36 HOLD #> ; 

4 : .$ 2DUP >S DUP 34 SWAP - 

5 1 SWAP CURS TYPE ; 

6 : CLR 5 2 CURS 20 DO 32 EMIT 

7 LOOP 4 2 CURS ; 

8 : $ ( -d) 13 WORD HERE 

9 NUMBER D+ . $ CLR QUIT ; 
10 

11 : CASH 125 EMIT 1 2 CURS 

12 ." CASH:" 0. .$ 4 2 CURS 

13 ." INPUT:" QUIT ; 
14 

15 

Fig 6-5 Cash register. 



The word >S reconverts the double 
precision number into a string. This word 
is used by .$. This word also determines 
the length of the string and adjusts the 
printout, that the decimal point is always 
at the same position on the TV screen. 
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7 The vocabulary 



7. THE VOCABULARY 

7-1 DIFFERENT VOCABULARIES. 

Every new word is entered into the FORTH 

vocabulary. But you can create your own 

vocabulary. This is done with the word 
VOCABULARY . 

VOCABULARY <NAME> Opens vocabulary 

NAME. 

You have to tell the FORTH compiler that 
all definitions made now, have to be 
entered in the new vocabulary. This is 
done with the word DEFINITIONS. 

<NAME> DEFINITIONS All new defini- 
tions are entered 
in the vocab- 
ulary NAME. 

With these two words, two variables are 
set. The variable CURRENT contains the 
address of the vocabulary, where the new 
definitions are entered. The variable 
CONTEXT contains the address, in which a 
word is searched for first. 
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For example: 

We are in the FORTH vocabulary and define: 

: WHERE . " I AM IN FORTH " ; 

Now we create a new vocabulary: 

VOCABULARY TEST 
TEST DEFINITIONS 

All new definitions are now entered into 
the vocabulary TEST. We define the same 
word WHERE as: 

: WHERE . " I AM IN TEST" ; 

We get the warning WHERE NOT UNIQUE, 
because we have defined it already in the 
vocabulary FORTH. If we call now WHERE, we 
get the message: 

I AM IN TEST 

With the word FORTH, we set the address, 
stored in CONTEXT to the beginning of the 
FORTH vocabulary. All words are now 
searched for first in the FORTH 
vocabulary. If we now call WHERE, we get 
the message: 

I AM IN FORTH 

Thats a very powerfull tool. Powerful to 
the extent of having one word with the 
same name, defined in two different 
vocabularies, performing different tasks. 
We use this to play the piano or an organ 
with the keyboard of the ATARI. 
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7-2 PLAY ORGAN OR PIANO WITH THE ATARI. 

The numeric keys one to eight of the ATARI 
keyboard are used to play an organ or 
piano. They refer to the musical notes of 
the C scale. The parameters for the fre- 
quency of each note are shown in Fig 7-1. 



c 


60 


H 


64 


A 


72 


G 


81 


F 


91 


E 


96 


D 


108 


C 


121 


H 


128 


A 


144 


G 


162 


F 


182 


E 


193 


D 


217 


C 


243 



Fig 7-1 Pitch values of the musical notes. 



The program is shown in Fig 7-2. The 
screens 93 and 94 contain the definition 
of the notes. Each tone is mixed with a 
tone of half the frequency and a tone 
which differs slightly from the basic tone. 

In the vocabulary PIANO ( screen 95, 96) 
the musical notes are defined as a tone 
with decreasing volume. In the vocabulary 
ORGAN ( screen 97) , they are defined as 
tones with a constant volume. 
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SCR # 092 

( AFB PIANO OR ORGAN 10/22 ef) 

1 : OFF SOUND 

2 1 SOUND 

3 2 SOUND ; 
4 

5 : WAIT ( n) DO LOOP ; 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 — > 



SCR # 093 















( AFB 


TONE TABLE 






1 


15 VARIABLE V 






2 


: (O 


V 


§ 


10 


243 





SOUND 


3 




V 


@ 


10 


240 


1 


SOUND 


4 




V 


@ 


10 


121 


2 


SOUND 


5 


: (D) 


V 


@ 


10 


217 





SOUND 
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V 


@ 


10 


214 


1 


SOUND 


7 




V 


@ 


10 


108 


2 


SOUND 


8 


: (E) 


V 


§ 


10 


193 





SOUND 


9 




V 


e 


10 


190 


1 


SOUND 


10 




V 
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10 


96 


2 


SOUND 
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SOUND 
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ef) 



77 



SCR # 094 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



AFB TONE TABLE 

(G) V @ 10 162 

V @ 

V @ 
(A) V 8 

V @ 

V @ 



cntd 

SOUND 



ef) 



(H) 



(CI) 



V @ 

V § 

V @ 
V § 



10 
10 
10 
10 
10 
10 
10 
10 
10 



160 

81 

144 

142 

72 

128 

126 

64 

12 



1 

2 



SOUND 
SOUND 



SOUND 



1 

2 



SOUND 
SOUND 



V @ 10 11 

V @ 10 6 
7TASTE KEY 4 9 

ELSE DUP 7 > 



SOUND 

1 SOUND 

2 SOUND ; 
1 SOUND 
9 1 SOUND 

2 SOUND ; 

- DUP 0< IF -1 

IF -1 THEN 



THEN 



— > 



SCR # 095 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



( AFB PIANO DEFINITIONS ef) 
VOCABULARY PIANO IMMEDIATE 
PIANO DEFINITIONS 
: WAIT 100 DO LOOP ; 



C -1 15 DO I V 

-1 +LOOP ; 

D -1 15 DO I V 

-1 +LOOP ; 

E -1 15 DO I V 

-1 +LOOP ; 

F -1 15 DO I V 

-1 +LOOP ; 

G -1 15 DO I V 

-1 +LOOP ; 

A -1 15 DO I V 

-1 +LOOP ; — > 



(C) WAIT 

(D) WAIT 

(E) WAIT 

(F) WAIT 

(G) WAIT 
(A) WAIT 
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SCR # 096 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



( AFB PIANO cntd ef) 

: H -1 15 DO I V ! (H) WAIT 

-1 +LOOP ; 
: CI -1 15 DO I V ! (CI) WAIT 

-1 +LOOP ; 

CASE: TON C D E F G A H CI ; 

: PLAY BEGIN ?TASTE DUP -1 > 
WHILE TON REPEAT 
15 V ! ; 



SCR # 097 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



D 


(D) ; 


: 


E 


(E) 


G 


(G) ; 


: 


A 


(A) 


CI 


(CI) 


/ 







( AFB ORGAN DEFINITIONS ef) 

VOCABULARY ORGAN IMMEDIATE 

ORGAN DEFINITIONS 

15 V ! 

: C (C) 

: F (F) 

: H (H) 



CASE: TON C D E F G A H CI ; 

: PLAY BEGIN 7TASTE DUP -1 > 
WHILE TON REPEAT 
OFF ; 



Fig 7-2 ATARI plays organ or piano. 
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The words PIANO PLAY lets you play piano. 
The words ORGAN PLAY lets you play organ. 

The word 7TASTE determines which key was 
pressed and allows the corresponding note 
to be picked up by the CASE: statement 
NOTE. 



7-3 THE CONSTRUCTION OF A FORTH WORD. 

The word HERE places the address of the 
first free memory location of the 
vocabulary stack onto the parameter stack. 
Type HERE . and you will get a number 
printed on the screen. The value of this 
number "depends of how many definitions 
you have made. Enter a new definition, 
such as 

: ADD + ; 

and type once more HERE . . The hexdump 
starting at HERE is shown in Fig 7-3. 



HERE . 17409 

: ADD + ; 

HERE . 17421 

17409 83 41 44 C4 EB 43 82 26 .ADDkC.S, 
17417 44 25 B7 24 04 D%7$. 

Fig 7-3 Hexdump of the word ADD. 
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HEREAFTER 
THE DEFINITION 


17421 








17419 
17417 


B7 


24 


PARAMETER FIELD 


44 


25 


CODEFIELD 


17415 


82 


26 


LINK FIELD 


17413 


EB 


43 


NAMEFIELD 


17411 
17409 


44 


C4 


HERE BEFORE 
THE DEFINITION 


83 


41 



440 D 
440 B 
4409 
4407 
4405 
4403 

4401 



Fig 7-4 Constuction of the word ADD. 

The address before the definition of ADD 
was 17409, the address after the 
definition is 17421. Fig 7-4 shows the 
construction of the word ADD. The word 
starts with the name field. The first byte 
is the length byte. Here the length of the 
name is stored in the lower 4 bits. The 
maximum length of a name is therefore 16 
characters . 

The next bytes contain the name in ASCII. 
The highest bit of the last character is 
set to one. This indicates to the 
interpreter the name searching routine is 
at the end of a name. 

The next two bytes are the link field. The 
address stored here points to the previous 
definition. The search routines uses this 
address to jump to the next word. The 
following two bytes are the codefield. 
This address points to the address where 
the execution of a word starts. 
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In our example this is the codefield 
address of the colon definition. The next 
two bytes are the parameter field. Stored 
here are the codefield addresses of the 
words used in the definition. In our 
example the first two bytes are the 
codefield address of the + word and the 
next two bytes the codefield address of 
the ; definition. The definition of ADD 
ends here and the pointer HERE points to 
the address of the next byte. 

We will use the word ADD in a new 
definition: 

: #ADD DUP ROT ADD ; 

FIG 7-5 shows the hexdump and Fig 7-6 the 
construction of the word #ADD. 



: #ADD DUP ROT ADD 
HERE . 17438 



17409 


83 


41 


44 


C4 


EB 


43 


82 


26 


.ADDkC.& 


17417 


44 


25 


B7 


24 


84 


23 


41 


44 


D%7$.#AD 


17425 


C4 


01 


44 


82 


26 


E6 


25 


C5 


D.D.&f%E 



17433 28 07 44 B7 24 04 ( .D7$ 



Fig 7-5 Hexdump of the word #ADD. 



Notice! In a 6502 CPU system the memory 

addresses are stored in reverses order. 

First the low order byte and next the high 

order byte is stored in two consecutive 
memory locations. 
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CODEFIELD 
LINKFIELD 



NAMEFIELD 



17438 
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B7 


24 


ADD 17434 


07 


44 


!LD ROT 17432 


C5 


28 


DUP 17430 


E6 


25 


: 17428 


82 


26 


17426 


01 


44 


17425 


C4 




17423 


41 


44 


17421 


84 


23 



44IE 

441 C 

441A 

4418 

4416 

4414 

4412 

4411 

440 F 

440 D 



Fig 7-6 Construction of the word #ADD. 



The address 17426 in the linkfield is the 
namefield address of ADD. In the parameter 
field you'll find the codefield addresses 
of DUP, ROT and ADD. 



When 

ROT a 

jumps 

execu 

def in 

Here 

def in 

execu 

more 

waits 



#ADD is executed, the words DUP and 
re executed. Next the interpreter 
to the codefield address of ADD. It 
tes this word until the semicolon 
ition, then it jumps back to #ADD. 
the interpreter finds the semicolon 
ition in #ADD. This terminates the 
tion of this word. If there are no 

words the interpreter prints OK and 
for the next input. 
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If you know the codefield address of a 
FORTH word, you can execute it with the 
word EXECUTE. 

EXECUTE ( a) Execute the word with 
codefield address a. 



3 5 HEX 2544 DECIMAL EXECUTE . 8 OK 



7-4 CHANGING THE TOP OF THE DICTIONARY. 

We have already used the word HERE, which 
places on the parameter stack the address 
of the first free memory location of the 
vocabulary stack. As pointed out in the 
last subchapter, the definition of a word 
starts at HERE and after this, HERE points 
one byte beyond the end of the word. The 
definition of HERE is: 

: HERE DP @ ; 

It uses a variable DP. With 

10 DP +! 

we make a gap in the dictionary. This gap 
can be used for storing data. The word 
ALLOT does the same as the line above. 

ALLOT ( n) Leave a gap of n bytes 

in the dictionary 



Attention ! The word ALLOT reserves n 
bytes in the dictionary. If you want to 
store n numbers in this gap, you have to 
reserve place for 2*n bytes. 
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HERE points to the parameter field. We 
store the number 1000, for example, at 
this place with 

1000 HERE ! 

If we want to store a second number, first 
we have to add two to HERE, and then we 
can store it. 

We can use the word , ( komma ) . The 
definition is: 

, ( n) Places n on top of the 
dictionary stack. Add 
two to HERE. 

Instead of 

1000 HERE ! 2 DP +! 

we can write 

1000 , 

To read these numbers from the dictionary, 
we use the word ' ( tick ) . 

1 <NAME> ( -a) Places the parameter 

field address a on the 
stack . 

To use this gap in the dictionary, we must 
name it. We use the word <BUILDS . This is 
part of a defining word which we discuss 
in the next subchapter. 

<BUILDS <NAME> places the entry NAME into 
the dictionary. 

Fig 7-7 shows an example. We write the 
word VECTOR into the dictionary, and 
reserve a place for five numbers. The word 
IVECTOR stores a number in this area. 
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It expects two numbers on the stack. The 
index n and the number itself, which 
should be stored. if the index is zero, 
this number is stored in the first place. 
If the index is four, this number is 
stored in the fifth place. The word 
@VECTOR fetches a number out of this array. 
It expects the index on the stack. Be 
carefull. If you use an index outside of 
the specified range the number is stored 
at this place. This can damage the program 
and hang up the computer. 



SCR # 110 

( AFB MEMORY RESERVATION ef) 

1 

2 <BUILDS VECTOR DP @ 10 + DP ! 

3 

4 : @VECTOR ( n-n ' ) 

5 ' VECTOR SWAP 2 * + § ; 
6 

7 : ! VECTOR ( nn ' ) 

8 ' VECTOR SWAP 2 * + ! ; 
9 

10 
11 
12 
13 
14 
15 

Fig 7-7 Memory reservation. 



Fig 7-8 is another example to store data 
in an array. We enter the name VECTOR into 
the dictionary and reserve place for 6 
numbers. The word INIT stores a one in the 
first place. The word +INDEX increases 
this number by one. 
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SCR # 111 

( AFB INDEXED MEM ALLOC. ef) 

1 

2 <BUILDS VECTOR 12 ALLOT 

3 

4 : INIT ( ) 1 ' VECTOR ! ; 

5 

6 : +INDEX 1 ' VECTOR @ + 

7 ' VECTOR ! ; 
8 

9 : @VECTOR ( n-n') 
10 ' VECTOR SWAP 2 * + @ ; 
11 

12 : ! VECTOR ( n) ' VECTOR DUP @ 

13 2 * + ! +INDEX ; 
14 

15 

Fig 7-8 Indexed memory allocation. 

The word @VECTOR is the same as in the 
last example. The word 1VECTOR is differ- 
ent. This word takes the parameter field 
address and duplicates it. Then it takes 
the number from the first place, 
multiplies it by two, and adds it to the 
parameter field address. This gives the 
new address where the number is stored. 
The number in the first place is increment- 
ed. The words: 

INIT 

1000 1VECTOR 

2000 iVECTOR 

3 000 IVECTOR 

store the numbers 1000 2000 3000 in three 
consecutive memory locations. With 

2 ©VECTOR 
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you read the number stored in the second 
place. 



7-5 THE VIRTUAL MEMORY. 

In the example above we reserved a place 
for five numbers. What can we do, if we 
want to store ten thousand 16 bit numbers? 
This could only be done with a disk drive. 

Now some words, how FORTH handles the disk. 
This is very easy. If you use a disk, 
formatted by DOS and no DOS files on it, 
FORTH recognices this as a memory of 720 
blocks with 128 bytes each. The word BLOCK 
reads one block into the disk buffer. 

BLOCK ( n-a) Reads block n if it 

is not present, in the 
disk buffer and leaves 
the address a of the 
first byte on the 
stack. 

The disk buffer is a region in RAM, 
reserved for these blocks. If this buffer 
is full, one block is overwritten. Prior 
to this, the block was written back to 
disk if it was marked as updated. The 
update bit is set by the word UPDATE. 

UPDATE ( ) Marks a block as 
updated. 

This word is used in a program when a 
block is changed and the changings should 
be saved on disk. Fig 7-9 shows the 
relation between a block on disk and in 

memory. 
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UPDATE BIT 

BLOCKNUMBER 




BLOCK 



DISKETTE 



Fig 7-9 Blocks in RAM and on diskette 



The program in Fig 7-10 shows how to use 
the disk as a virtual memory. To store 
data on disk we use the same technique as 
in our last example. 

The constant START is the number of the 
first block on disk we will use for data 
storage. The blocknumber 480 is equal to 
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screen number 120. The next word #INDEX 
requests the index of the wanted number on 
the stack and leaves the address where it 
is stored. The index n is multiplied by 
two and divided by 128 with the word /MOD. 
This leaves the remainder and the quotient 
on the stack. 

SCR # 112 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



( AFB VIRTUAL MEMORY ef) 

480 CONSTANT START 

: #INDEX ( n-a) 2 * 128 /MOD 

START + BLOCK + ; 

FIRST* ( -a) #INDEX ; 

+NR 1 FIRST* +! ; 

!MEM ( n) FIRST* @ #INDEX ! 

+NR UPDATE ; 

@MEM ( a-n) # INDEX @ ; 

#INIT 1 FIRST* ! ; 

.CONTENT CR FIRST* @ DUP 1 = 

IF ELSE 1 DO I @MEM . CR 

LOOP THEN ; 



Fig 7-10 Virtual memory. 



The constant START is added to the the 
quotient. This is the block number in 
which the wanted number is stored. BLOCK 
brings the address of the first byte on 
the stack. To this address the remainder 
is added. The result is the address of the 
wanted number. FIRST* brings the address 
of the first byte of block START on the 
stack. This byte contains the amount of 
numbers stored on disk. #INIT sets the 
starting value to one. The words !MEM and 
@MEM work like IVECTOR and @VECTOR in the 
last example. The word .CONTENT prints the 
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content of this array. We will use the 
virtual memory in an application program 
in the next chapter. 

#INIT OK 

1 !MEM OK 

2 !MEM OK 
9999 !MEM OK 
1234 !MEM OK 
FLUSH OK 
.CONTENT 

1 

2 

9999 

1234 

OK 

Fig 7-11 Example for a virtual memory. 



7-6 DEFINITION WORDS 

In the last subchapter, we used the word 
<BUILDS to make an entry in the dictionary. 
This word is part of the defining word 
<BUILDS. . .DOES> . In FORTH these defining 
words are used to create new data struc- 
tures. Fig 7-12 shows the construction of 
a defining word. 

: CONSTANT <BUILDS , DOES> @ ; 



NAME 



(BUILDS 



COMPILE 

TIME 

BEHAVIOUR 



DOES) 



RUN TIME 
BEHAVIOUR 



Fig 7-12 Construction of a defining word. 

After the word <BUILDS all words are 
listed which are executed during compiling 
a word ( compile time behaviour) . After 
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DOES> all words are listed, which are 
executed during running a word ( run time 
behaviour) . 

Example: 

The word CONSTANT is defined as: 

: CONSTANT <BUILDS , DOES> @ ; 

During compile time of CONSTANT a number 
is stored on top of the dictionary stack ( 
f ) . During runtime this number is fetched 
( @ ) from the stack. As another example 
we define an array as: 

: ARRAY <BUILDS 2 ALLOT DOES> SWAP 2 * + ; 

We can use the word ARRAY to create new 
words with the same data structure. They 
all store ten 16 bit numbers. 

ARRAY VECTOR 

creates the word VECTOR as a one 
dimensional array for ten numbers. 

1000 VECTOR ! 

stores the number 1000 in the first 
element of this array and 

VECTOR | 
prints it on the screen. 

Using a defining word means to change the 
compiler of the FORTH system. Other 
computer languages are sealing the 
compiler, so that nobody can change it. 
This does' nt happen in FORTH. You can 
change the compiler and even can change 
the compile time behaviour. We will see an 
example later. 
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The program in Fig 7-13 is another example 
for <BUILDS... DOES>. It is a language 
translator. LIS creates an array for four 
numbers. 'LIST is a list of addresses. In 
this list the addresses of the messages 
. " HELLO" . " GUTEN TAG" and so on are 
stored . 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



( AFB LANGUAGE TRANSLATOR ef) 
: LIS <BUILDS 8 ALLOT DOES> 
SWAP 2 * + ; LIS 'LIST 



EN ." 
* EN 

DE ." 
' DE 1 

IT ." 
1 IT 2 

FR ." 
' FR 3 



— > 



HELLO " ; 
'LIST ! 
GUTEN TAG ' 
'LIST ! 
BON GIORNO 
'LIST ! 
BON JOUR " 
'LIST ! 



( AFB LANG. TRANSLATOR cntd ef) 

CONSTANT ENGLISH 

1 CONSTANT GERMAN 

2 CONSTANT ITALIEN 

3 CONSTANT FRENCH 



GREETINGS 
EXECUTE 



'LIST @ 2 - 



;s 



Fig 7-13 Language translator 
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The words ENGLISH, GERMAN, ITALIEN and 
FRENCH are the names of constants. The 
word GREETINGS fetches the address from 
'LIST, subtracts two, to get the codefield 
address and executes it. 

GERMAN GREETINGS GUTEN TAG OK 
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8 Applications 



8. APPLICATIONS. 



8.1 MAILING LIST. 



The program in Fig 8-3 is a mailing list. 
For the input of an address a mask is used. 
This mask is shown in Fig 8-1 and an 
example in Fig 8-2. 



MAILING LIST 



-FN -LN 

-CO 

-ST 

-CY -CT-ZP 

-CI -C2 -MORE (Y/N) 
WHAT 

Fig 8-1 Input mask. 
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MAILING LIST 



-EKKEHARD -FLOEGEL 

-ELCOMP PUBLISHING 

-53 REDROCK LANE 

-POMONA -CA-917 66- 

-ATARI-99-47 -MORE (Y/N) 

WHAT 

EKKEHARD FLOEGEL 
ELCOMP PUBLISHING 
53 REDROCK LANE 
POMONA CA 91766 

Fig 8-2 Example for an address input. 

The main words of the mailing list are: 

NEW 

NEW creates a new mailing list. The number 
FIRSTt, stored in the first two bytes in 
block 100 is set to one. In FIRST# the 
number of the next entry is stored. 

INPUT 

INPUT enters the input mode of the mailing 
list. The mask is placed on the screen and 
the cursor is placed into the first field. 
The cursor is moved to the next field by 
pressing the RETURN key. It is also moved 
if all places of a field are filled with 
characters. Typing Y after OK (Y/N) puts 
the entry into memory. N cancels the entry. 
For more input type Y after MORE (Y/N) . 
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.CONTENT 

. CONTENT prints the content of the mailing 
list. Three entries are displayed on the 
screen at one time. Pressing the space bar 
displays the next three entries. Any other 
key cancels the output. 

SEARCH <item> <name> 

SEARCH searches for a specific entry. 
SEARCH LN JEFFERSON searches the entry 
with the last name JEFFERSON. The input 
SEARCH LN JEF searches all entries in 
which the last name starts with the 
characters JEF. The entries are printed 
three at a time. Pressing the space bar 
prints the next three entries, until the 
message END OF LIST appears. 

DELETE <item> <name> 

DELETE <itern> <name> deletes an entry. 
DELETE LN MILLER searches first for the 
entry with the last name MILLER. The 
entry is deleted by Y after the message OK 
(Y/N) . A deleted entry is marked with the 
character *. 



ENTRY 

ENTRY replaces a deleted entry with a new 
one. If there is no deleted entry the 
message NO DELETED ENTRY, USE INPUT is 
displayed. 

GO 

GO erases the TV screen and waits for the 
input of a main word. 
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Some words used in the program: 

CM sets the background color to a bright 
yellow. The characters are printed in 
black on the TV screen. 

MASK creates the mask on the TV screen. 
For printing the words 1R 2R 3R 4R 5R and 
.- are used. 

DESCR <name> creates an entry into the 
vocabulary with the name <name>. It is 
used to store the starting address within 
PAD and the length of a field. 



FN 1 


nn * ] 


First name. 


LN 


nn * 


Last name. 


CO 


nn 1 


Company. 


ST 


nn ' 


Street. 


CY 


nn ' 


1 City. 


CT 


nn ' 


) State. 


ZP 


[ nn 1 


i Zip code. 


CI 


[ nn ■ 


i Codefield 1. 


C2 


[ nn ' 


) Codefield 2. 



The two codefields can be used to mark the 
entries of an address. They are not 
printed on the screen. 

The words in screen four are used to erase 

an entry within the mask. 

(CL) ( n) erases n characters starting at 

the momentary cursor position. 

FNC places the cursor at the beginning of 

the first name field and clears the entry. 

In the same manner the other words are 

defined. 

The words used in screen #5 are similar to 

the words defined in chapter six. The 

virtual memory is expanded to store 

records with a length of 128 bytes. The 

same words as in Fig 7-10 are used. 
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One of the most significant words used in 
the searching part is (VERGL) . 

(VERGL) ( aa'c-f) 

(VERGL) compares two strings starting at 
address a and a 1 until a delimiter c is 
found in the string at address a. If the 
two strings are equal until the delimiter 
is found, a one is put on the stack. The 
zero is left on the stack if they are not 
equal. In the word VERGL the space 
character ( ASCII 32 ) is used as 
delimiter. For large mailing lists (VERGL) 
should be written in machine language. 



(CONTENT) ( n) 

(CONTENT) prints the entry with the number 
n on the screen. It uses the variable CNT 
for counting. After three printouts the 
screen is cleared and CNT is set to zero. 



FOUND moves the content of PAD to PAD + 
128, then prints the address found and 
restors PAD for further searching. 

(SEARCH) ( nn'0-f) 

(SEARCH) searches for an entry between the 
boundaries n and n'. The zero on top of 
the stack is replaced by a one if the 
entry was found. The word (ERASE) is 
similar . 

Used constants and variables: 

START contains the number of the first 
block used for date storage. 
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RECLEN contains the length of a record. 

WO (variable) contains the starting 

address within PAD for the string 

comparison. 

#NR (variable) contains the number of the 

entry which is examined. 

CNT (variable) is used for counting. 

SCR # 001 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



( BUSINESS MASK 10/22 ef) 
: CURS ( rocl) 85 ! 84 C! 

155 EMIT ; 
: CLR 125 EMIT ; : .- 45 EMIT ; 
: CM 222 710 C! 709 C! ; 
: 1R ( n) 3 CURS 38 3 DO .- 

LOOP ; 
: 2R 6 3 CURS .- 6 20 CURS .- 

6 37 CURS .- ; 
: 3R ( n) DUP 3 



CURS 
4R 12 



8 DO 
3 CURS 



CURS .- 30 
- LOOP ; 
,- 12 28 CURS 



12 31 CURS .- 12 37 CURS .- 



5R 14 3 CURS 



14 9 CURS .- 



14 17 CURS .- 14 37 CURS .- 

— > 



SCR # 002 




1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 



( BUSINESS MASK cntd 
128 CONSTANT RECLEN 
: MASK CLR CM 5 1R 2R 

9 1R 10 3R 11 1R 4R 

5R 15 1R ; 
( ADDRESS INPUT ) 
: DESCR VARIABLE 



ef) 



DESCR 
DESCR 
DESCR 
DESCR 
DESCR 



(FN) 
(LN) 
(CO) 
(ST) 
(CY) 



, 

16 

32 

58 

84 



-2 
16 , 
- 16 
, 26 
, 26 
, 24 



7 1R 8 
13 1R 



ALLOT 



3R 



100 



12 


DESCR (CT) 


108 , 2 , 




13 


DESCR (ZP) 110 , 5 , 


14 


DESCR (NR) 115 , 5 , 


15 


DESCR (AM) 120 , 7 , — > 


SCR i 


\ 003 


1 


BUSINESS ADDR INPUT cntd ef) 


1 : 


2@ DUP 2 + @ SWAP @ ; 


2 : 


FN (FN) 2@ 


• : LN (LN) 2@ ; 


3 : 


CO (CO) 2@ 


- : ST (ST) 2@ ; 


4 : 


CY (CY) 2@ 


■ : CT (CT) 2@ ; 


5 : 


ZP (ZP) 2@ 




6 ■ 


CI (NR) 2@ 


• : C2 (AM) 2@ ; 


7 : 


IN PAD + SWAP EXPECT ; 


8 : 


(INPUT) 6 4 CURS FN IN 


9 e 


i 21 CURS LN IN 8 4 CURS CO IN 


10 10 4 CURS ST IN 12 4 CURS CY IN 


11 12 29 CURS CT IN 


12 12 32 CURS ZP IN 


13 14 4 CURS CI IN 


14 14 10 CURS C2 IN ; 


15 


— > 


SCR i 


\ 004 





[ BUSINESS ADDR INPUT cntd ef) 


1 


: (CL) ( n) DO 32 EMIT LOOP ; 


2 


FNC 6 4 CURS 16 (CL) ; 


3 


: LNC 6 21 CURS 16 (CL) ; 


4 


: COC 8 4 CURS 26 (CL) ; 


5 


: STC 10 4 CURS 26 (CL) j 




6 


: CYC 12 4 CURS 24 (CL) , 




7 


: CTC 12 29 CURS 2 (CL) 




8 


: ZPC 12 32 CURS 5 (CL) 




9 


: NRC 14 4 CURS 5 (CL) ; 


10 


: AMC 14 10 CURS 7 (CL) ; 


11 


: CL FNC LNC COC STC CYC 


12 


CTC ZPC NRC AMC ; 


13 


: MC 14 18 CURS ; 


14 


: OK? MC 19 (CL) MC 


15 


." OK (Y/N) 


» . 


— > 
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SCR # 005 

( BUSINESS ADDR INPUT cntd ef) 

1 : MORE? MC 19 (CL) MC 

2 ." MORE (Y/N) " ; 

3 : PADC PAD RECLEN 32 FILL ; 

4 ( TYPE FOR ATARI ) 

5 : ATYPE -DUP IF OVER + SWAP 

6 DO I C@ 127 AND DUP 0= 

7 IF DROP ELSE EMIT THEN 

8 LOOP ELSE DROP ENDIF ; 

9 : IS SPACE ; : 5S 5 SPACES ; 

10 : PRINT ( na) PAD + SWAP 

11 -TRAILING ATYPE ; 

12 : .ADDR CR 5S FN PRINT IS LN 

13 PRINT CR 5S CO PRINT CR 5S ST 

14 PRINT CR 5S CY PRINT IS CT 

15 PRINT IS ZP PRINT ; — > 



SCR #0 06 

( VIRTUAL MEMORY ef) 

1 100 CONSTANT START 

2 : #INDEX ( n-a) RECLEN * 128 

3 /MOD START + BLOCK + ; 

4 : FIRST* ( -a) #INDEX ; 

5 : +NR 1 FIRST* +! UPDATE ; 

6 : !MEM PAD FIRST* @ #INDEX 

7 RECLEN CMOVE UPDATE +NR ; 

8 : @MEM ( n) #INDEX PAD RECLEN 

9 CMOVE ; 

10 : NEW 1 FIRST* ! ; 

11 

12 — > 

13 

14 

15 
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SCR #0 07 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



( BUSINESS ADDR INPUT cntd ef) 

: .MSG 1 4 CURS . " MAILING LIST 
» . 

.MSG1 16 4 CURS ." WHAT " ; 
GO CLR CM .MSG .MSG1 QUIT ; 
INPUT MASK PADC .MSG 
BEGIN (INPUT) OK? KEY 89 = 
IF !MEM THEN 
MORE? KEY 89 = 
WHILE CL PADC MC 19 (CL) 
REPEAT .MSG1 FLUSH QUIT ; 



— > 



SCR # 008 



( BUSINESS SEARCH ef) 

1 VARIABLE WO 1 VARIABLE #NR 

2 : 2 DROP DROP DROP ; 

3 : ['] [COMPILE] ' ; 

4 : (VERGL) ( aa'c-f) 

5 BEGIN ROT DUP C@ >R OVER I = 

6 R> SWAP DUP IF 

7 ELSE DROP >R ROT DUP C@ 

8 R> = DUP DUP THEN WHILE 

9 2DROP 1+ >R 1+ R> ROT 

10 REPEAT >R 2DROP 2DROP R> ; 

11 : WHAT [■] 2 - EXECUTE SWAP 

12 DROP DUP WO ! 13 WORD HERE 

13 COUNT ROT PAD + SWAP CMOVE ; 

14 — > 
15 
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SCR # 009 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



( BUSINESS SEARCH cntd ef) 
: VERGL PAD WO @ + #NR @ # INDEX 
WO @ + 3 2 (VERGL) ; 
NIL CR ." NOT IN LIST " 
EOL CR . " END OF LIST " ; 
•NAME #NR @ @MEM .ADDR ; 



— > 



SCR # 010 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



( BUSINESS OUTPUT ef) 

VARIABLE CNT 

: 3? ( -f) CNT @ 3 = ; 

: (CONTENT) ( n) @MEM .ADDR 

1 CNT +! 3? IF KEY CNT ! 

CLR 32 = 1 XOR IF .MSGl QUIT 

THEN THEN ; 
: .CONTENT CLR CM CNT ! 

CR FIRST* @ DUP 1=1 XOR 

IF 1 DO I (CONTENT) 

CR LOOP THEN .MSGl QUIT ; 
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SCR # Oil 

( BUSINESS SEARCHING cntd ef) 

1 : MOVE> PAD PAD 128 + RECLEN 

2 CMOVE ; 

3 : <MOVE PAD 12 8 + PAD RECLEN 

4 CMOVE ; 

5 : FOUND MOVE> #NR @ (CONTENT) 

6 CR <MOVE ; 

7 : (SEARCH) DO I #NR ! VERGL 

8 IF FOUND DROP 1 THEN LOOP ; 
9 

10 : SEARCH CNT ! PADC CLR 

11 WHAT FIRST* @ 1 (SEARCH) 

12 IF EOL ELSE NIL THEN 

13 .MSG1 QUIT ; 

14 — > 
15 



SCR # 012 

( BUSINESS DELETING ef) 

1 : (ERASE) DO I #NR ! VERGL 

2 IF DROP 1 LEAVE THEN LOOP ; 
3 

4 : .* #NR @ #INDEX RECLEN 

5 42 FILL UPDATE ; 
6 

7 : DELETE PADC CLR WHAT FIRST# 

8 @ 1 (ERASE) IF .NAME OK? 

9 KEY 89 = IF .* THEN 

10 ELSE NIL THEN .MSG1 QUIT ; 

11 

12 

13 

14 

15 — > 
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SCR # 013 

( BUSINESS ENTRY ef) 

1 : ! ENTRY PAD #NR @ #INDEX 

2 RECLEN CMOVE UPDATE FLUSH ; 
3 

4 : (ENTRY) CLR MASK BEGIN 

5 (INPUT) OK? KEY 78 = WHILE 

6 CL REPEAT ! ENTRY ; 
7 

8 : .MSG3 CR . " NO DELETED ENTRY, 

9 USE INPUT " ; 

10 : ENTRY PADC 42 PAD ! 32 PAD 

11 1 + ! WO ! FIRST* @ 1 

12 (ERASE) IF (ENTRY) ELSE .MSG3 

13 THEN .MSG1 QUIT ; 
14 

15 : HELP 14 LIST ; 



SCR # 014 

( BUSINESS HELP SCREEN ef) 

1 ( Main words: 

2 NEW starts a new mailing list. 

3 INPUT makes an entry. It is 

4 placed at the end of the list. 

5 .CONTENT prints the content of 

6 the list. The printing stops 

7 after three entries. Use the 

8 space bar for more. Any other 

9 key cancels the printing. 

10 SEARCH <item> <name> searches 

11 for the item with name. 

12 DELETE <item> <name> deletes 

13 the entry with the item name. 

14 ENTRY searches for a deleted 

15 entry and replaces it. ) 

Fig 8-3 Mailing list. 
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8-2 SERIAL OUTPUT VIA GAME PORT THREE. 



The game port three is used to transmit 

data from the ATARI to a printer with a 

serial input. One half of an RS232 

interface is simulated by software. The 

connections to be made are shown in Fig 8- 
4. 



(FIGURE) 



? 



, . 


V", 


" 


6 


9 




£ 



Transmit Data 



Signal Ground 



20 



o 
o 



o 
o 



o 1 

2 



O SIGNAL GND 



^> 



Fig 8-4 Transmit data from the ATARI 
to a printer or RS232 input. 
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This application also shows how to use 
machine code without using an assembler in 
FORTH. The program is listed in Fig 8-5. 

The word CREATE <name> creates an entry 
into the vocabulary with the name <name>. 
It writes the parameter field address into 
the codefield address of this word. The 
bytes of the machine code are stored in 
the parameter field by C, . CREATE sets 
bit 6 of the length byte to one. This 
makes the name unknown to the search 
routine of the interpreter. The word 
SMUDGE sets this bit to zero. 
The last instruction of a FORTH word 
defined in machine code must be a JMP NEXT 
instead an RTS instruction. With JMP NEXT 

the FORTH interpreter is called. The 
address of NEXT is $747 in QS-FORTH and 
$842 in POWER-FORTH. 



The word INIT in text screen #140 initial- 
ises the port B. This word could be 
written with FORTH words. To get the exact 
timing for the data transfer rate of 300 
baud, a subroutine BITWAIT is used. The 
code for this routine is placed into 
memory locations $6EB to $6F5. The word 
OUTCHR takes the byte on the top of the 
stack and sends it to the printer. During 
printing all interrupts of the ATARI are 
disabled. This causes the TV screen to 
become black and flickering. 

The words defined in screen #145 to #149 
print the content of a text screen and a 
TV screen. 

.SCREEN ( n) Print text screen n. 

.SCRN Print TV screen. 
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SCR 


# 140 











( SCREENPRINT RS232 


1 


CREATE INIT ( 


PORT 


2 


A9 C, 


30 


c, 




3 


8D C, 


03 


C, D3 


c, ( 


4 


A9 C, 


01 


c, 




5 


8D C, 


01 


C, D3 


c, ( 


6 


A9 C, 


34 


c, 




7 


8D C, 


03 


C, D3 


c, ( 


8 


A9 C, 


00 


c, 




9 


8D C, 


01 


C, D3 


c, ( 


10 


4C C f 


47 


C f 07 


c, ( 


11 


SMUDGE 






12 










13 


DECIMAL 


— > 




14 










15 











9/29 

B ) 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

JMP 



ef 

HEX 

#$30 

$D303 

#$01 

$D301 

#$34 

$D303 

#$00 

$D301 

NEXT 



SCR 


# 141 













( SCREENPRINT 


RS232 


cntd 




1 


HEX ( BITWAIT 


) 






2 


96A2 6EB 


; 


( LDX 


#$96 


) 


3 


06A0 6ED 


i 


( LDY 


#$06 


) 


4 


88 6EF 


C! 


( DEY 


) 




5 


FDDO 6F0 


i 


( BNE 


-3 


) 


6 


CA 6F2 


C! 


( DEX 


) 




7 


F8D0 6F3 


! 


( BNE 


-8 


) 


8 


60 6F5 


C! 


( RTS 


) 




9 












10 












11 


DECIMAL 










12 












13 


— > 










14 












15 













ef ) 
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SCR 


# 142 















( SCREENPRINT RS232 cntd ef ) 


1 


HEX 












2 


CREATE OUTCHR 


( c) 




3 


B5 C, 


00 


c, 






LDA 00, X ) 


4 


E8 C, 


E8 


C 






DEC SPTR ) 


5 


86 C, 


B5 


c, 






, STX XSAVE ) 


6 


49 C, 


FF 


c, 






EOR #$FF ) 


7 


8D C, 


F6 


c, 


06 


c, 


STA BUFF ) 


8 


78 C, 










SEI ) 


9 


A9 C, 


00 


c, 






LDA #00 ) 


10 


8D C, 


0E 


c, 


D4 


c, 


STA NMIEN ) 


11 


8D C, 


00 


c, 


D4 


c, 


STA DMACTL) 


12 


A9 C, 


01 


c, 






[ LDA #$01 ) 


13 


8D C, 


01 


c, 


D3 


c, 


[ STA PORTB ) 


14 


20 C, 


EB 


c, 


06 


c, 


JSR WAIT ) 


15 


— > 













SCR 


# 143 













( SCREENPRINT RS232 


1 


A0 C, 


08 


c, 






2 


84 C, 


IF 


c, 






3 


AD C, 


F6 


c, 


06 


C, ( 


4 


8D C, 


01 


c, 


D3 


c, ( 


5 


6A C, 










6 


8D C, 


F6 


c, 


06 


c, ( 


7 


20 C, 


EB 


c, 


06 


c, ( 


8 


C6 C, 


IF 


c, 






9 


DO C, 


EF 


c, 






10 


A9 C, 


00 


c, 






11 


8D C, 


01 


c, 


D3 


c, ( 


12 


20 C, 


EB 


c, 


06 


c, ( 


13 


20 C, 


EB 


c, 


06 


C, ( 


14 


A0 C, 


01 


c, 






15 


— > 











cntd ef 
LDY #$08 
STY COUNT 
LDA BUFF 
STA PORTB 
ROR 

STA BUFF 
JSR WAIT 
DEC COUNT 
-17 
#00 
STA PORTB 
JSR WAIT 
JSR WAIT 
#01 



BNE 
LDA 



LDY 



110 



SCR 


# 144 











( SCREENPRINT RS232 


cntd ef ) 


1 


A9 C, 22 


c, 




LDA #$22 ) 


2 


8D C, 00 


c, 


D4 C, ( 


STA DMACTL) 


3 


A9 C, FF 


c, 




LDA #$FF ) 


4 


8D C, 0E 


c, 


D4 C, ( 


STA NMIEN ) 


5 


58 C, 






CLI ) 


6 


A6 C, B5 


c, 




LDX XSAVE ) 


7 
8 
9 


4C C, 47 


c, 


07 C, ( 


JMP NEXT ) 


SMUDGE 








10 










11 


DECIMAL 








12 










13 


— > 








14 










15 











SCR 


# 145 





( SCREENPRINT 


1 


3020 VARIABLE ZNR 


2 


HEX 


3 


VARIABLE #SCR -2 ALLOT 


4 


53 C, 43 C, 52 C, 20 C, 


5 


23 C, 20 C, 


6 




7 




8 




9 




10 




11 
12 




13 
14 


DECIMAL — > 


15 





ef) 
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SCR # 146 

( SCREENPRINT cntd ef) 

1 : CRR [ HEX ] OD OUTCHR 

2 OA OUTCHR [ DECIMAL ] ; 

3 : PRINT ( ADR N — > ) 1+ 

4 DO DUP I + C@ OUTCHR LOOP 

5 DROP ; 

6 : BLANCS 1+ DO [ HEX ] 20 

7 OUTCHR [ DECIMAL ] LOOP ; 

8 : SCO /MOD 48 + ; 

9 : .ZNR DUP 10 SCO DUP 48 = 

10 IF DROP 32 THEN OUTCHR 

11 1 SCO OUTCHR DROP ; 

12 : .TOS DUP 100 SCO OUTCHR 

13 10 SCO OUTCHR 1 SCO OUTCHR 

14 DROP ; : .B 10 SCO OUTCHR 

15 1 SCO OUTCHR DROP ; — > 



SCR # 147 



2 
3 

4 
5 
6 
7 
8 



( SCREENPRINT cntd ef) 

1 DECIMAL INIT 
1LINE CRR 4 BLANCS ZNR @ .ZNR 
1+ ZNR ! 1 BLANCS ; 
?CRR 32 MOD 0= IF 1LINE 
THEN ; 

ANF 5 BLANCS #SCR 5 PRINT 
.TOS ZNR ! CRR ; 
ZAUS 128 DO DUP BLOCK 

9 I ?CRR I + C@ OUTCHR LOOP ; 
10 

11 : .SCREEN ANF 4 * 4 DO ZAUS 

12 1+ LOOP CRR DROP ; 
13 

14 

15 — > 
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SCR #14 8 

( SCRN PRINT 10/14/82 ef) 

1 VARIABLE ROW VARIABLE COLN 

2 : ?FIN ( -f) COLN @ 24 = ; 

3 : 1ROW 40 DO ROW @ C@ 3 2 + 

4 DUP 128 > IF 32 - THEN 

5 OUTCHR 1 ROW +! LOOP ; 
6 

7 : .SCRN 88 @ ROW ! COLN ! 

8 BEGIN 1ROW CRR 1 COLN +! ?FIN 

9 UNTIL ; 
10 

11 
12 
13 
14 

15 — > 



SCR # 149 

( SCREENPRINT cndt ef) 

1 : 6CR 6 DO CRR LOOP ; 

2 : 4CR 4 DO CRR LOOP ; 

3 : TRI ( n) DUP 3 + SWAP 

4 DO I .SCREEN 4CR LOOP 

5 CRR CRR ; 
6 

7 

8 

9 
10 
11 
12 
13 
14 
15 



Fig 8-5 Serial output via game port three. 
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FORTH for the ATARI 



® 




6 1»»2 CopytiBh) ty ttCOMPTOraitilno. <«< 



Learn-FORTH 

A subset of Fig- 
Forth for the 
beginner. On 
disk (32K RAM) 
or on cassette 
RAM), 
the 
400 or 
800 
RAM 



(16K 
Even 
ATARI 
ATARI 
/16K 
owner can pro- 
gram in FORTH. 
Order-No. 7053 
S 19.95 



POWER FORTH is an extended Fig-FORTH version. Editor 
and I/O package included. Utility package includes decompiler, 
sector copy, Hex-dump (ASCII), ATARI Filehandling, total 
graphic and sound; joystickprogram and player missile. 
Extremely powerful. Two game demos (sound and animation) and 
a mailing list, written in FORTH are included. 
Order-No. 7055 disk $39.95 



Floating point package for POWER FORTH with trigonometric 

functions (0-90°). 

Order-No. 7230 disk S29.95 



NOTES 



NOTES 



NOTES 



NOTES 



NOTES 



ORDER FORM 




i = : 



ELCOMP PUBLISHING, INC., 53 Redrock Lane, Pomona, CA 91766 (Phone: {714} 623-8314) 

Please make chocks out to ELCOMP PUBLISHING, INC. 
Please bill to my Master Card or Visa account # . 

1 Card # 



Address: 



Expiration Date 



Master Charge Bank Code . 



City / State / Zip: 



Signature 













Order 






Qty. 


No. 


Description 


Price S 


Qty. 


No. 


Description 


Price S 




29 


MICROC. HARDWARE HANDB. 


14.95 




488? 


EXPANDING YOUR VIC 


14.95 




158 


CARE AND FEEDING... 


?.95 




4894 


RUNFILL 


9.95 




151 


81! MICROSOFT BASIC 


9.95 




4896 


MINIASSEMBLER 


19.95 




152 


EXP. HANDB. 6582 AND 6882 


?.?5 




6153 


LEARN-FORTH 


19.95 




153 


HICROC. APPLICATION NOTES 


9.95 




6155 


POUER FORTH (APPLE) 


39.95 




154 


COMFLEX SOUND 


6.95 




7822 


ATMONA-1, CASS. 


19.95 




154 


SHALL BUSINESS FROGR. 


14.98 




7823 


ATHONA-1, DISK 


24.95 




158 


SECOND BOOK OF OHIO 


7.95 




7024 


ATMONA-1, CARTRIDGE 


59.00 




15? 


THE THIRD DOOK OF OHIO 


7.95 












148 


THE FOURTH BOOK OF OHIO 


9.95 




7842 


EPROH BURNER FOR ATARI 


179.00 




161 


THE FIFTH BOOK OF OHIO 


7.95 




7843 


EPROM BOARD (CARTRIDGE) 


29.95 




162 


CAKES FOR THE ATARI 


7.95 




7849 


ATMONA-2, CASS. 


49.95 




164 


ATARI LEARNING BY USING 


7.J5 




7050 


ATMONA-2. DISK 


54.00 




166 


PROGR. 1.6582 HACH.LANB. 


19.95 




7853 


LEARN-FORTH 


19.95 




16? 


HIJU TO PROGR. IN MACH.L. 


9.95 




7855 


POUER FORTH 


39.95 




178 


FORTH ON THE ATARI 


7.95 




7098 


ATAS 


49.95 




171 


A LOOK INTO THE FUTURE 


9.95 




78?? 


ATMAS 


89.00 




173 


PROGRAM DESCRIPTIONS 


4.95 




7180 


PROGRAMS FROM BOOK H 164 


29.95 




174 


ZX-81/TIMEX 


9.?5 




7288 


INVOICE URITING.DISK 


39.08 




176 


TRICKS FOR V1CS 


9.95 




7287 


GUNFIGHT FOR ATARI 


19.95 




'.282 


JANA/1 MONITOR 


29.95 




7218 


UORDPROCESSOR, CASS. 


29.95 




684 


PROTOTYPING CARD 


29.80 




7211 


HOU TO CONNECT... 


19.95 




685 


6522 Vlll I/O EXP. CARD 


39.08 




7212 


MAILING LIST, CASS. 


19.95 




686 


SLOT REPEATER 


49.80 




7213 


MAILING LIST, DISK 


24.95 




687 


2716 EPRON FROGRAHNER 


49.08 




7214 


INVENTORY CONTR., CASS. 


19.95 




608 


SOUND UITH THE GI «Y3-B?12 


39.00 




7215 


INVENTORY CONTR., DISK 


24. ?5 




68? 


8K EPRON CARD (2716) 


29.08 




7216 


UORDPROCESSOR. DISK 


34.95 




618 


12 BIT A/D CONVERTER BDAR 


74.08 




7217 


UORDPROCESSOR. CARTRIDGE 


69.08 




615 


16K RANRON-BOARD 


59.95 




7221 


PROGRAMS FROM BOOK It 162 


29.95 




688 


THE CUSTOM APPLE BOOK 


24.95 




7222 


KNAUS OGINO 


29.95 




2378 


NAILING LIST FOR 2X-8I 


19.95 




7223 


ASTROLOGY PROGRAM 


29.95 




23?? 


MACHINE LANG. MONITOR 


9.95 




722 4 


EPROM BOARD KIT 


14.94 




2488 


ADAPTER BOARD FOR ZX-61 


14.80 




7238 


FLOATING POINT PACKAGE 


299.95 




3276 


EDITOR/ASS. FOR CBH 


39.08 




7271 


RS232-INTERFACE 


19.95 




3475 


ASSEMBLER FOR CBM 


39.95 




7292 


EPROM BURNER KIT 


49.80 




4826 


GUNFIGHT FOR PET/CBH 


9.95 




7387 


ATCASH 


49.95 




4844 


UNIVERSAL EXP. BOARD 


18.95 




7309 


MOON PHASES 


19.95 




4848 


ADAPTER BOARD 


3.95 




7318 


ATAMEMO 


29.95 




4878 


PROFI UDRDPROC. F. VIC 


19.95 




7312 


SUPERMAIL 


49.08 




41)80 


TIC TAC UIC 


9.95 




7313 


BUSIPACK 1 


98.80 




4881 


GAMEPACK FOR VIC 


14.95 




7314 


BIORHYTHM FOR ATARI 


9.95 




4883 


MAIL-VIC 


14.95 











Payment: Check, Money Order, VISA. Master charge. Access. 

Interbank. Eurocheck 

Prepaid orders add S3.50 for shipping (USA) 

S5.00 handling fee for C.O.D. 

ALL ORDERS OUTSIDE USA: Add 15 % shipping. 

California residents add 6.5% sales tax. 



aboard and CIPnre trademarks of Ohio Scientific Co. 
>RI is □ tradumnrk ol ATARI Warner Communications 
, CBM and VIC-20 are trademarks Of Commodore Business 





BITFIR 


(■ 



